projects
/
elisp
/
egg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
egg-980402.
[elisp/egg.git]
/
egg
/
sj3.el
diff --git
a/egg/sj3.el
b/egg/sj3.el
index
b011f05
..
33abd34
100644
(file)
--- a/
egg/sj3.el
+++ b/
egg/sj3.el
@@
-73,7
+73,7
@@
(set-buffer buf)
(erase-buffer)
(buffer-disable-undo)
(set-buffer buf)
(erase-buffer)
(buffer-disable-undo)
- (setq enable-multibyte-characters nil))
+ (set-buffer-multibyte nil))
;; Initialize dictionaries
(setq sj3-sys-dict-list nil)
(setq sj3-user-dict-list nil)
;; Initialize dictionaries
(setq sj3-sys-dict-list nil)
(setq sj3-user-dict-list nil)
@@
-233,17
+233,17
@@
(setq ret (sj3rpc-open-stdy proc name))
(if (= ret 0)
(setq trying nil)
(setq ret (sj3rpc-open-stdy proc name))
(if (= ret 0)
(setq trying nil)
- (message "
\92
\81
³Ø
\92
\81
½¬
\92
\81
¥Õ
\92
\81
¥¡
\92
\81
¥¤
\92
\81
¥ë(%s)
\92
\81
¤¬
\92
\81
¤¢
\92
\81
¤ê
\92
\81
¤Þ
\92
\81
¤»
\92
\81
¤ó" name)
+ (message "
\e
$B3X=,%U%!%$%k
\e
(B(%s)
\e
$B$,$"$j$^$;$s
\e
(B" name)
(if (/= ret (SJ3-const FileNotExist))
(error "Fatal1") ; XXX
(if (and (y-or-n-p
(if (/= ret (SJ3-const FileNotExist))
(error "Fatal1") ; XXX
(if (and (y-or-n-p
- (format "
\92
\81
³Ø
\92
\81
½¬
\92
\81
¥Õ
\92
\81
¥¡
\92
\81
¥¤
\92
\81
¥ë(%s)
\92
\81
¤¬
\92
\81
¤¢
\92
\81
¤ê
\92
\81
¤Þ
\92
\81
¤»
\92
\81
¤ó
\92
\81
¡£
\92
\81
ºî
\92
\81
¤ê
\92
\81
¤Þ
\92
\81
¤¹
\92
\81
¤«? "
+ (format "
\e
$B3X=,%U%!%$%k
\e
(B(%s)
\e
$B$,$"$j$^$;$s!#:n$j$^$9$+
\e
(B? "
name))
(sj3rpc-make-directory proc
(file-name-directory name))
;; ignore error
(= (sj3rpc-make-stdy proc name) 0))
name))
(sj3rpc-make-directory proc
(file-name-directory name))
;; ignore error
(= (sj3rpc-make-stdy proc name) 0))
- (message "
\92
\81
³Ø
\92
\81
½¬
\92
\81
¥Õ
\92
\81
¥¡
\92
\81
¥¤
\92
\81
¥ë(%s)
\92
\81
¤ò
\92
\81
ºî
\92
\81
¤ê
\92
\81
¤Þ
\92
\81
¤·
\92
\81
¤¿" name)
+ (message "
\e
$B3X=,%U%!%$%k
\e
(B(%s)
\e
$B$r:n$j$^$7$?
\e
(B" name)
(error "Fatal2"))))))) ; XXX
(defun sj3-open-dictionary (proc name passwd)
(error "Fatal2"))))))) ; XXX
(defun sj3-open-dictionary (proc name passwd)
@@
-253,15
+253,15
@@
(setq ret (sj3rpc-open-dictionary proc name passwd))
(if (>= ret 0)
(setq trying nil)
(setq ret (sj3rpc-open-dictionary proc name passwd))
(if (>= ret 0)
(setq trying nil)
- (message "
\92
\81
¼
\92
\81
½ñ
\92
\81
¥Õ
\92
\81
¥¡
\92
\81
¥¤
\92
\81
¥ë(%s)
\92
\81
¤¬
\92
\81
¤¢
\92
\81
¤ê
\92
\81
¤Þ
\92
\81
¤»
\92
\81
¤ó" name)
+ (message "
\e
$B<-=q%U%!%$%k
\e
(B(%s)
\e
$B$,$"$j$^$;$s
\e
(B" name)
(setq ret (- ret)) ; Get error code.
(if (/= ret (SJ3-const FileNotExist))
(error "Fatal3 %d" ret) ; XXX
(if (and (y-or-n-p
(setq ret (- ret)) ; Get error code.
(if (/= ret (SJ3-const FileNotExist))
(error "Fatal3 %d" ret) ; XXX
(if (and (y-or-n-p
- (format "
\92
\81
¼
\92
\81
½ñ
\92
\81
¥Õ
\92
\81
¥¡
\92
\81
¥¤
\92
\81
¥ë(%s)
\92
\81
¤¬
\92
\81
¤¢
\92
\81
¤ê
\92
\81
¤Þ
\92
\81
¤»
\92
\81
¤ó
\92
\81
¡£
\92
\81
ºî
\92
\81
¤ê
\92
\81
¤Þ
\92
\81
¤¹
\92
\81
¤«? "
+ (format "
\e
$B<-=q%U%!%$%k
\e
(B(%s)
\e
$B$,$"$j$^$;$s!#:n$j$^$9$+
\e
(B? "
name))
(= (sj3rpc-make-dictionary proc name) 0))
name))
(= (sj3rpc-make-dictionary proc name) 0))
- (message "
\92
\81
¼
\92
\81
½ñ
\92
\81
¥Õ
\92
\81
¥¡
\92
\81
¥¤
\92
\81
¥ë(%s)
\92
\81
¤ò
\92
\81
ºî
\92
\81
¤ê
\92
\81
¤Þ
\92
\81
¤·
\92
\81
¤¿" name)
+ (message "
\e
$B<-=q%U%!%$%k
\e
(B(%s)
\e
$B$r:n$j$^$7$?
\e
(B" name)
(error "Fatal4"))))) ; XXX
ret))
(error "Fatal4"))))) ; XXX
ret))