[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv4964

Modified Files:
	slime.el 
Log Message:
(slime-post-command-hook): Check that we are connected before trying
to process input.

(slime-net-connect): Handle `network-error' condition for XEmacs
21.5. (Thanks Raymond Toy.)

Date: Fri Oct 17 15:55:47 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.40 slime/slime.el:1.41
--- slime/slime.el:1.40	Fri Oct 17 15:47:57 2003
+++ slime/slime.el	Fri Oct 17 15:55:47 2003
@@ -262,7 +262,8 @@
   (setq slime-pre-command-actions nil))
 
 (defun slime-post-command-hook ()
-  (slime-process-available-input))
+  (when (slime-connected-p)
+    (slime-process-available-input)))
 
 (defun slime-setup-command-hooks ()
   "Setup a buffer-local `pre-command-hook' to call `slime-pre-command-hook'."
@@ -555,7 +556,8 @@
             (set-process-coding-system slime-net-process 
                                        'no-conversion 'no-conversion)))
 	slime-net-process)
-    (file-error () nil)))
+    (file-error () nil)
+    (network-error () nil)))
     
 (defun slime-make-net-buffer (name)
   "Make a buffer suitable for a network process."