mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-04 22:33:27 +00:00
Code Issues Releases Activity
4d10c5d235
freebsd-ports/japanese/yc.el/files/patch-aa
Satoshi Taoka 4d9dae9133 Yet another Canna client for Emacs20/XEmacs 
PR:		16060
Submitted by:	HONDA Yasuhiro <honda@kashio.info.mie-u.ac.jp>
2000-01-23 14:20:25 +00:00

2.5 KiB
Raw Blame 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")
(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