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

*** 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")
(defconst yc-select-count 2 ; $B0lMw%b!<%I$K$J$k7+$jJV$7?t
"$B0lMw%b!<%I$K$J$k7+JV$7?t$r@_Dj$9$k!#%G%U%)%k%H$O3$B2s!#
--- 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")
(defconst yc-select-count 2 ; $B0lMw%b!<%I$K$J$k7+$jJV$7?t
"$B0lMw%b!<%I$K$J$k7+JV$7?t$r@_Dj$9$k!#%G%U%)%k%H$O3$B2s!#
***************
*** 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!Y" "") ("|" "$B!C" "") ("{" "$B!X" "") ("zz" "$B$C" "z")
("zyu" "$B$8$e" "") ("zyo" "$B$8$g" "") ("zyi" "$B$8$#" "") ("zye" "$B$8$'" "")
--- 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!Y" "") ("|" "$B!C" "") ("{" "$B!X" "") ("zz" "$B$C" "z")
("zyu" "$B$8$e" "") ("zyo" "$B$8$g" "") ("zyi" "$B$8$#" "") ("zye" "$B$8$'" "")
***************
*** 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