Fix emacs-anthy to work "anthy-add-word-interactive".
It used "string-to-int" which seems have been obsolete in emacs. ok jca
This commit is contained in:
parent
a2299e45df
commit
b4341adfa2
@ -1,4 +1,4 @@
|
||||
# $OpenBSD: Makefile,v 1.23 2019/03/28 02:03:27 jca Exp $
|
||||
# $OpenBSD: Makefile,v 1.24 2019/04/02 10:13:19 yasuoka Exp $
|
||||
|
||||
COMMENT-main = japanese input method
|
||||
COMMENT-emacs = emacs files for anthy
|
||||
@ -8,7 +8,7 @@ DISTNAME = anthy-$V
|
||||
PKGNAME-main = anthy-$V
|
||||
PKGNAME-emacs = emacs-anthy-$V
|
||||
REVISION-main = 2
|
||||
REVISION-emacs = 3
|
||||
REVISION-emacs = 4
|
||||
|
||||
SHARED_LIBS += anthydic 1.0 # .1.0
|
||||
SHARED_LIBS += anthy 1.0 # .1.0
|
||||
|
29
inputmethods/anthy/patches/patch-src-util_anthy-dic_el
Normal file
29
inputmethods/anthy/patches/patch-src-util_anthy-dic_el
Normal file
@ -0,0 +1,29 @@
|
||||
$OpenBSD: patch-src-util_anthy-dic_el,v 1.1 2019/04/02 10:13:19 yasuoka Exp $
|
||||
|
||||
Index: src-util/anthy-dic.el
|
||||
--- src-util/anthy-dic.el.orig
|
||||
+++ src-util/anthy-dic.el
|
||||
@@ -1,4 +1,4 @@
|
||||
-;; anthy-dic.el -- Anthy
|
||||
+; anthy-dic.el -- Anthy
|
||||
|
||||
;; Copyright (C) 2001 - 2005
|
||||
;; Author: Yusuke Tabata<yusuke@w5.dion.ne.jp>
|
||||
@@ -70,7 +70,7 @@
|
||||
(defun anthy-dic-get-special-noun-category (word)
|
||||
(let
|
||||
((res '())
|
||||
- (cat (string-to-int
|
||||
+ (cat (string-to-number
|
||||
(read-from-minibuffer "1:$B?ML>(B 2:$BCOL>(B: "))))
|
||||
(cond ((= cat 1)
|
||||
(setq res '(("$BIJ;l(B" "$B?ML>(B"))))
|
||||
@@ -113,7 +113,7 @@
|
||||
(and (string= word "")
|
||||
(setq word (read-from-minibuffer "$BC18l(B($B8l44$N$_(B): ")))
|
||||
(setq yomi (read-from-minibuffer (concat "$BFI$_(B (" word "): ")))
|
||||
- (setq cat (string-to-int
|
||||
+ (setq cat (string-to-number
|
||||
(read-from-minibuffer
|
||||
"$B%+%F%4%j!<(B 1:$B0lHLL>;l(B 2:$B$=$NB>$NL>;l(B 3:$B7AMF;l(B 4:$BI{;l(B: ")))
|
||||
(cond ((= cat 1)
|
Loading…
Reference in New Issue
Block a user