27 lines
923 B
Text
27 lines
923 B
Text
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)
|