[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv29406

Modified Files:
	ChangeLog slime.el 
Log Message:
Stop the beeping on restart.

* slime.el (slime-quit-lisp-internal): Don't kill already dead
processes.

--- /project/slime/cvsroot/slime/ChangeLog	2010/01/03 15:58:29	1.1952
+++ /project/slime/cvsroot/slime/ChangeLog	2010/01/05 09:00:04	1.1953
@@ -1,3 +1,10 @@
+2010-01-05  Helmut Eller  <heller at common-lisp.net>
+
+	Stop the beeping on restart.
+
+	* slime.el (slime-quit-lisp-internal): Don't kill already dead
+	processes.
+
 2010-01-03  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-backend.lisp (frame-call): New function.
--- /project/slime/cvsroot/slime/slime.el	2010/01/03 14:22:22	1.1261
+++ /project/slime/cvsroot/slime/slime.el	2010/01/05 09:00:05	1.1262
@@ -5228,7 +5228,8 @@
       (set-process-sentinel connection sentinel)
       (when (and kill process)
         (sleep-for 0.2)
-        (kill-process process)))))
+        (unless (memq (process-status process) '(exit signal))
+          (kill-process process))))))
 
 (defun slime-quit-sentinel (process message)
   (assert (process-status process) 'closed)