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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-connect): Don't delete a random window when *inferior-lisp*
isn't visible.

Date: Sun Nov 23 08:40:45 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.103 slime/slime.el:1.104
--- slime/slime.el:1.103	Sun Nov 23 07:12:59 2003
+++ slime/slime.el	Sun Nov 23 08:40:45 2003
@@ -816,8 +816,9 @@
   (message "Connecting to Swank on port %S.." port)
   (slime-net-connect "localhost" port)
   (slime-init-connection)
-  (delete-windows-on (get-buffer "*inferior-lisp*"))
-  (bury-buffer (get-buffer "*inferior-lisp*"))
+  (when-let (buffer (get-buffer "*inferior-lisp*"))
+    (delete-windows-on buffer)
+    (bury-buffer (get-buffer "*inferior-lisp*")))
   (pop-to-buffer (slime-output-buffer))
   (message "Connected to Swank server on port %S. %s"
            port (slime-random-words-of-encouragement)))