X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=egg%2Fsj3.el;h=b011f05a33d2dcaa85fbc9665b6a2738e40cd840;hb=76f334e2fe809b36369c21ae700fb4111c959cde;hp=865f42b40f01d684c7e8683b409f2d21cfb6b93e;hpb=28fb101186f07642d2a7e203dca11c9256b9868a;p=elisp%2Fegg.git diff --git a/egg/sj3.el b/egg/sj3.el index 865f42b..b011f05 100644 --- a/egg/sj3.el +++ b/egg/sj3.el @@ -29,9 +29,7 @@ ;;; Code: -(require 'egg-edep) - -(defconst sj3-support-languages '(Japanese)) +(defconst sj3-support-languages '("Japanese")) (eval-when-compile (defmacro SJ3-const (c) @@ -75,7 +73,7 @@ (set-buffer buf) (erase-buffer) (buffer-disable-undo) - (set-buffer-multibyte nil)) + (setq enable-multibyte-characters nil)) ;; Initialize dictionaries (setq sj3-sys-dict-list nil) (setq sj3-user-dict-list nil) @@ -235,17 +233,17 @@ (setq ret (sj3rpc-open-stdy proc name)) (if (= ret 0) (setq trying nil) - (message "$B3X=,%U%!%$%k(B(%s)$B$,$"$j$^$;$s(B" name) + (message "’³Ø’½¬’¥Õ’¥¡’¥¤’¥ë(%s)’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó" name) (if (/= ret (SJ3-const FileNotExist)) (error "Fatal1") ; XXX (if (and (y-or-n-p - (format "$B3X=,%U%!%$%k(B(%s)$B$,$"$j$^$;$s!#:n$j$^$9$+(B? " + (format "’³Ø’½¬’¥Õ’¥¡’¥¤’¥ë(%s)’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó’¡£’ºî’¤ê’¤Þ’¤¹’¤«? " name)) (sj3rpc-make-directory proc (file-name-directory name)) ;; ignore error (= (sj3rpc-make-stdy proc name) 0)) - (message "$B3X=,%U%!%$%k(B(%s)$B$r:n$j$^$7$?(B" name) + (message "’³Ø’½¬’¥Õ’¥¡’¥¤’¥ë(%s)’¤ò’ºî’¤ê’¤Þ’¤·’¤¿" name) (error "Fatal2"))))))) ; XXX (defun sj3-open-dictionary (proc name passwd) @@ -255,15 +253,15 @@ (setq ret (sj3rpc-open-dictionary proc name passwd)) (if (>= ret 0) (setq trying nil) - (message "$B<-=q%U%!%$%k(B(%s)$B$,$"$j$^$;$s(B" name) + (message "’¼­’½ñ’¥Õ’¥¡’¥¤’¥ë(%s)’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó" name) (setq ret (- ret)) ; Get error code. (if (/= ret (SJ3-const FileNotExist)) (error "Fatal3 %d" ret) ; XXX (if (and (y-or-n-p - (format "$B<-=q%U%!%$%k(B(%s)$B$,$"$j$^$;$s!#:n$j$^$9$+(B? " + (format "’¼­’½ñ’¥Õ’¥¡’¥¤’¥ë(%s)’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó’¡£’ºî’¤ê’¤Þ’¤¹’¤«? " name)) (= (sj3rpc-make-dictionary proc name) 0)) - (message "$B<-=q%U%!%$%k(B(%s)$B$r:n$j$^$7$?(B" name) + (message "’¼­’½ñ’¥Õ’¥¡’¥¤’¥ë(%s)’¤ò’ºî’¤ê’¤Þ’¤·’¤¿" name) (error "Fatal4"))))) ; XXX ret))