freebsd-ports/japanese/yc.el/files/patch-aa

71 lines
2.5 KiB
Plaintext
Raw Normal View History

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