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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-update-banner): Don't print the working directory.  It
rarely fits in a line and was only Emacs' default-directory.  M-x pwd
is convenient enough.

Date: Fri Apr 30 02:37:08 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.284 slime/slime.el:1.285
--- slime/slime.el:1.284	Thu Apr 29 15:16:04 2004
+++ slime/slime.el	Fri Apr 30 02:37:08 2004
@@ -1824,13 +1824,12 @@
           (current-buffer)))))
 
 (defun slime-repl-update-banner ()
-  (let ((banner (format "%s  Port: %s  Pid: %s Pwd: %s"
+  (let ((banner (format "%s  Port: %s  Pid: %s"
                         (slime-lisp-implementation-type)
                         (if (featurep 'xemacs)
                             (process-id (slime-connection))
                           (process-contact (slime-connection)))
-                        (slime-pid)
-                        (expand-file-name default-directory))))
+                        (slime-pid))))
     ;; Emacs21 has the fancy persistent header-line.
     (cond ((boundp 'header-line-format)
            (when slime-reply-update-banner-p