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