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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-connect): Shorten the welcome message by leaving out the port
number (which is displayed in the REPL anyway). This avoids
line-wrapping some messages of encouragement.

(slime-current-package): Deal with narrowing.

Date: Sun Aug  1 22:26:57 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.384 slime/slime.el:1.385
--- slime/slime.el:1.384	Fri Jul 30 14:37:32 2004
+++ slime/slime.el	Sun Aug  1 22:26:57 2004
@@ -1130,9 +1130,7 @@
     (message "Initial handshake..." port)
     (slime-setup-connection process)
     (slime-hide-inferior-lisp-buffer)
-    (message "Connected on port %S. %s"
-             port
-             (slime-random-words-of-encouragement))))
+    (message "Connected. %s" (slime-random-words-of-encouragement))))
 
 (defun slime-start-and-load ()
   "Start Slime, load the current file and set the package."
@@ -1844,7 +1842,9 @@
 The REPL buffer is a special case: it's package is `slime-lisp-package'."
   (or (and (eq major-mode 'slime-repl-mode) (slime-lisp-package))
       slime-buffer-package
-      (slime-find-buffer-package)))
+      (save-restriction
+        (widen)
+        (slime-find-buffer-package))))
 
 (defun slime-find-buffer-package ()
   "Figure out which Lisp package the current buffer is associated with."