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:
yasuoka 2019-04-02 10:13:19 +00:00
parent a2299e45df
commit b4341adfa2
2 changed files with 31 additions and 2 deletions

View File

@ -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

View 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)