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

[Luke Gorrie]

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

Modified Files:
	slime.el ChangeLog 
Log Message:

Date: Tue Oct 28 23:48:55 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.59 slime/slime.el:1.60
--- slime/slime.el:1.59	Fri Oct 24 21:54:00 2003
+++ slime/slime.el	Tue Oct 28 23:48:55 2003
@@ -740,7 +740,8 @@
     (process-send-string slime-net-process (string-make-unibyte string))))
 
 (defun slime-net-sentinel (process message)
-  (message "Lisp connection closed: %s" message)
+  (when (ignore-errors (process-live-p (inferior-lisp-proc)))
+    (message "Lisp connection closed unexpectedly: %s" message))
   (setq slime-state-name "[not connected]")
   (force-mode-line-update)
   (ignore-errors (kill-buffer (process-buffer slime-net-process))))


Index: slime/ChangeLog
diff -u slime/ChangeLog:1.68 slime/ChangeLog:1.69
--- slime/ChangeLog:1.68	Tue Oct 28 17:30:47 2003
+++ slime/ChangeLog	Tue Oct 28 23:48:55 2003
@@ -1,3 +1,8 @@
+2003-10-29  Luke Gorrie  <luke at bluetail.com>
+
+	* slime.el (slime-net-sentinel): Only show a message about
+	disconnection if the inferior-lisp is still running.
+
 2003-10-28  James Bielman  <jamesjb at jamesjb.com>
 
 	* null-swank-impl.lisp: New file.