X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=egg%2Fsj3rpc.el;h=a7eda4c67cd166f6cde74258dfb5cc3520fdb940;hb=efad2997c240e23522ab1a4c94e400420738b1e4;hp=c92dbb71661d77dfd10a3e77610a876e4ee1a738;hpb=4608e5dc67907aa65b911d1ebddaeb3f7f70c1c7;p=elisp%2Fegg.git

diff --git a/egg/sj3rpc.el b/egg/sj3rpc.el
index c92dbb7..a7eda4c 100644
--- a/egg/sj3rpc.el
+++ b/egg/sj3rpc.el
@@ -70,8 +70,14 @@
 	  ((eq c 'VERSION)       103)
 	  (t (error "No such constant")))))
 
+;; XXX
+(defconst sj3rpc-error-message (vector ))
+
 (defun sj3rpc-get-error-message (errno)
-  (or (aref sj3rpc-error-message errno) (format "#%d" errno)))
+  (or (and (>= errno 0)
+	   (< errno (length sj3rpc-error-message))
+	   (aref sj3rpc-error-message errno))
+      (format "#%d" errno)))
 
 (defmacro sj3rpc-call-with-environment (e vlist send-expr &rest receive-exprs)
   (let ((v (append