Lines 1-5
Link Here
|
1 |
--- yc.el.orig 2010-09-30 13:22:22.000000000 +0900 |
1 |
--- yc.el.orig 2018-06-04 13:46:33.083915000 +0900 |
2 |
+++ yc.el 2010-09-30 13:26:09.000000000 +0900 |
2 |
+++ yc.el 2018-06-04 14:48:21.116298000 +0900 |
3 |
@@ -1736,6 +1736,7 @@ |
3 |
@@ -1736,6 +1736,7 @@ |
4 |
(error nil)))) |
4 |
(error nil)))) |
5 |
(yc-eval-sexp (car expr))))) |
5 |
(yc-eval-sexp (car expr))))) |
Lines 8-10
Link Here
|
8 |
(if romkana-table |
8 |
(if romkana-table |
9 |
(setq yc-rH-conv-dic (yc-search-file-first-in-path |
9 |
(setq yc-rH-conv-dic (yc-search-file-first-in-path |
10 |
romkana-table (list "." (getenv "HOME") |
10 |
romkana-table (list "." (getenv "HOME") |
|
|
11 |
@@ -2071,7 +2072,7 @@ |
12 |
;; $BJ8@a$r;XDj$7$J$$>l9g!"8=:_$NJ8@a$,BP>]$H$J$k(B |
13 |
;; $BFI$_$r<hF@$7$?J8@a$O$=$NFI$_$r%-%c%C%7%e$9$k(B |
14 |
;; cut $B$,(B $BHs(Bnil $B$N>l9g!";XDjJ8@a0J9_$NFI$_$r:o=|$9$k(B |
15 |
-(defun yc-yomi (&optional idx &optional cut) |
16 |
+(defun yc-yomi (&optional idx cut) |
17 |
(if (integerp idx) |
18 |
(yc-put-bunsetsu-yomi idx (yc-get-bunsetsu-yomi idx cut) cut) |
19 |
(yc-put-bunsetsu-yomi yc-mark (yc-get-bunsetsu-yomi yc-mark cut) cut))) |