X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fegg.git;a=blobdiff_plain;f=egg%2Fsj3rpc.el;fp=egg%2Fsj3rpc.el;h=4d76603359a79a4e78aa755062bee10f3ac7e272;hp=9520e53b344ab1000ce7e5fed248f9f9745cf430;hb=5aed272165474232c184fca0eea0615d0d24eb03;hpb=b119a4bd55128604c081bf958ce71e0d1294d88e

diff --git a/egg/sj3rpc.el b/egg/sj3rpc.el
index 9520e53..4d76603 100644
--- a/egg/sj3rpc.el
+++ b/egg/sj3rpc.el
@@ -33,7 +33,9 @@
 
 (eval-when-compile
   (require 'egg-com)
-;;  (load-library "egg/sj3")
+
+  ;; To get definition of sj3-make-bunsetsu and others
+  (load-library "egg/sj3")
   (defmacro sj3-const (c)
     (cond ((eq c 'OPEN)            1)
 	  ((eq c 'CLOSE)           2)
@@ -71,7 +73,10 @@
 	  (t (error "No such constant")))))
 
 ;; XXX
-(defconst sj3rpc-error-message (vector ))
+(defconst sj3rpc-error-message 
+     [ 
+      "Error #0 です"
+      ])
 
 (defun sj3rpc-get-error-message (errno)
   (or (and (>= errno 0)
@@ -102,9 +107,9 @@
 		 ;; program name
 		 (format "%d.emacs-egg" (emacs-pid)))
     (comm-unpack (u) result)
-    (if (= result -2)
-	0
-      result)))
+    (if (= result -2)			; negated version number
+	0				; OK
+      -1)))				; Failure (different version)
 
 (defun sj3rpc-close (proc)
   (comm-call-with-proc proc (result)