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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-set-connection-info): Hide the *inferior-lisp* after we now
Lisp's pid.

(slime-find-buffer-package): We need to preserve the case for things
like (:in-package "foo"), so return "\"foo\"".

 
Date: Fri Oct  1 13:59:24 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.404 slime/slime.el:1.405
--- slime/slime.el:1.404	Tue Sep 28 00:21:50 2004
+++ slime/slime.el	Fri Oct  1 13:59:24 2004
@@ -433,9 +433,12 @@
 
 (defun slime-pretty-package-name (name)
   "Return a pretty version of a package name designator (as a string)."
-  (cond ((string-match "^:\\(.*\\)$" name)    (match-string 1 name))
-        ((string-match "^\"\\(.*\\)\"$" name) (match-string 1 name))
-        (t name)))
+  (let ((name (cond ((string-match "^:\\(.*\\)$" name)    
+                     (match-string 1 name))
+                    ((string-match "^\"\\(.*\\)\"$" name) 
+                     (match-string 1 name))
+                    (t name))))
+    (format "%s" (read name))))
 
 (when slime-update-modeline-package
   (run-with-idle-timer 0.2 0.2 'slime-update-modeline-package))
@@ -1181,7 +1184,6 @@
          (slime-dispatching-connection process))
     (message "Initial handshake...")
     (slime-setup-connection process)
-    (slime-hide-inferior-lisp-buffer)
     (message "Connected. %s" (slime-random-words-of-encouragement))))
 
 (defun slime-start-and-load (filename &optional package)
@@ -1219,7 +1221,7 @@
          ,(format "Start up slime according to `%s'." progsym)
          (interactive)
          (let ((inferior-lisp-program ,progsym))
-           (run-hook ',hooksym)
+           (run-hooks ',hooksym)
            (call-interactively 'slime))))))
 
 ;;;;; Start inferior lisp
@@ -1374,7 +1376,8 @@
 
 (defun slime-hide-inferior-lisp-buffer ()
   "Display the REPL buffer instead of the *inferior-lisp* buffer."
-  (let* ((buffer (if (slime-process) (process-buffer (slime-process))))
+  (let* ((buffer (if (slime-process) 
+                     (process-buffer (slime-process))))
          (window (if buffer (get-buffer-window buffer)))
          (repl (slime-output-buffer t)))
     (when buffer
@@ -1764,6 +1767,7 @@
           (slime-connection-name) (slime-generate-connection-name name)
           (slime-lisp-features) features))
   (setq slime-state-name "")            ; FIXME
+  (slime-hide-inferior-lisp-buffer)
   (slime-init-output-buffer connection)
   (run-hooks 'slime-connected-hook))
 
@@ -1945,7 +1949,7 @@
       (goto-char (match-end 0))
       (skip-chars-forward " \n\t\f\r#")
       (let ((pkg (ignore-errors (read (current-buffer)))))
-        (if pkg (format "%s" pkg))))))
+        (if pkg (format "%S" pkg))))))
 
 ;;; Synchronous requests is implemented in terms of asynchronous
 ;;; ones. We make an asynchronous request with a continuation function