diff options
Diffstat (limited to 'japanese/yc.el/files/patch-aa')
| -rw-r--r-- | japanese/yc.el/files/patch-aa | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/japanese/yc.el/files/patch-aa b/japanese/yc.el/files/patch-aa new file mode 100644 index 000000000000..9f0717282b80 --- /dev/null +++ b/japanese/yc.el/files/patch-aa @@ -0,0 +1,70 @@ +*** yc.el.orig Sun Dec 5 15:50:23 1999 +--- yc.el Sun Dec 5 16:08:09 1999 +*************** +*** 251,257 **** + + (require 'cl) + +! (defconst yc-canna-lib-path "/usr/lib/canna/dic/";"/usr/local/canna/lib/dic/" + "$B$+$s$J$N<-=q%Q%9$r@_Dj$9$k(B") + (defconst yc-select-count 2 ; $B0lMw%b!<%I$K$J$k7+$jJV$7?t(B + "$B0lMw%b!<%I$K$J$k7+JV$7?t$r@_Dj$9$k!#%G%U%)%k%H$O(B3$B2s!#(B +--- 251,257 ---- + + (require 'cl) + +! (defconst yc-canna-lib-path "/usr/local/lib/canna/dic/" + "$B$+$s$J$N<-=q%Q%9$r@_Dj$9$k(B") + (defconst yc-select-count 2 ; $B0lMw%b!<%I$K$J$k7+$jJV$7?t(B + "$B0lMw%b!<%I$K$J$k7+JV$7?t$r@_Dj$9$k!#%G%U%)%k%H$O(B3$B2s!#(B +*************** +*** 655,661 **** + (defvar yc-user-dic-list nil) + (defvar yc-default-bushu-dic-list '("bushu")) + (defvar yc-bushu-dic-list nil) +! (defvar yc-rH-conv-dic "/usr/local/canna/lib/dic/default.cbp") + (defvar yc-default-rH-table + '(("~" "$B!1(B" "") ("}" "$B!Y(B" "") ("|" "$B!C(B" "") ("{" "$B!X(B" "") ("zz" "$B$C(B" "z") + ("zyu" "$B$8$e(B" "") ("zyo" "$B$8$g(B" "") ("zyi" "$B$8$#(B" "") ("zye" "$B$8$'(B" "") +--- 655,661 ---- + (defvar yc-user-dic-list nil) + (defvar yc-default-bushu-dic-list '("bushu")) + (defvar yc-bushu-dic-list nil) +! (defvar yc-rH-conv-dic (concat (file-name-as-directory yc-canna-lib-path) "default.kp")) + (defvar yc-default-rH-table + '(("~" "$B!1(B" "") ("}" "$B!Y(B" "") ("|" "$B!C(B" "") ("{" "$B!X(B" "") ("zz" "$B$C(B" "z") + ("zyu" "$B$8$e(B" "") ("zyo" "$B$8$g(B" "") ("zyi" "$B$8$#(B" "") ("zye" "$B$8$'(B" "") +*************** +*** 1603,1609 **** + (defun yc-read-string-from-file (file) + (let* (;; emacs-20.x + (auto-coding-alist +! (cons '("\\.cbp" . japanese-iso-8bit) + (and (boundp 'auto-coding-alist) + auto-coding-alist))) + (auto-coding-alist +--- 1603,1609 ---- + (defun yc-read-string-from-file (file) + (let* (;; emacs-20.x + (auto-coding-alist +! (cons '("\\.kp" . japanese-iso-8bit) + (and (boundp 'auto-coding-alist) + auto-coding-alist))) + (auto-coding-alist +*************** +*** 1613,1619 **** + + ;; XEmacs-20.x + (file-coding-system-alist +! (cons '("\\.cbp" . euc-jp) + (and (boundp 'file-coding-system-alist) + file-coding-system-alist))) + (file-coding-system-alist +--- 1613,1619 ---- + + ;; XEmacs-20.x + (file-coding-system-alist +! (cons '("\\.kp" . euc-jp) + (and (boundp 'file-coding-system-alist) + file-coding-system-alist))) + (file-coding-system-alist |