[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv4185

Modified Files:
	slime.el ChangeLog 
Log Message:
Prettify package names for slime-repl-set-package.

* slime.el (slime-repl-set-package): slime-current-package may
have leading colons.  Use slime-pretty-package-name to remove
them.  Reported by Constantine Vetoshev.
(slime-pretty-current-package): New function.
(slime-set-package): Use it.



--- /project/slime/cvsroot/slime/slime.el	2007/11/24 08:14:50	1.880
+++ /project/slime/cvsroot/slime/slime.el	2007/11/29 12:26:39	1.881
@@ -495,6 +495,11 @@
                     (t name))))
     (format "%s" (read name))))
 
+(defun slime-pretty-current-package ()
+  "Retrun a prettied version of `slime-current-package'."
+  (let ((p (slime-current-package)))
+    (and p (slime-pretty-package-name p))))
+
 (when slime-update-modeline-package
   (run-with-idle-timer 0.2 0.2 'slime-update-modeline-package))
 
@@ -3306,8 +3311,8 @@
 
 (defun slime-repl-set-package (package)
   "Set the package of the REPL buffer to PACKAGE."
-  (interactive (list (slime-read-package-name "Package: " 
-					      (slime-find-buffer-package))))
+  (interactive (list (slime-read-package-name
+                      "Package: " (slime-pretty-current-package))))
   (with-current-buffer (slime-output-buffer)
     (let ((unfinished-input (slime-repl-current-input)))
       (destructuring-bind (name prompt-string)
@@ -6381,7 +6386,7 @@
 
 (defun slime-set-package (package)
   (interactive (list (slime-read-package-name "Package: " 
-					      (slime-find-buffer-package))))
+					      (slime-pretty-current-package))))
   (message "*package*: %s" (slime-eval `(swank:set-package ,package))))
 
 (defun slime-set-default-directory (directory)
--- /project/slime/cvsroot/slime/ChangeLog	2007/11/24 08:19:25	1.1250
+++ /project/slime/cvsroot/slime/ChangeLog	2007/11/29 12:26:40	1.1251
@@ -1,3 +1,13 @@
+2007-11-29  Helmut Eller  <heller at common-lisp.net>
+
+	Prettify package names for slime-repl-set-package.
+
+	* slime.el (slime-repl-set-package): slime-current-package may
+	have leading colons.  Use slime-pretty-package-name to remove
+	them.  Reported by Constantine Vetoshev.
+	(slime-pretty-current-package): New function.
+	(slime-set-package): Use it.
+
 2007-11-24  Helmut Eller  <heller at common-lisp.net>
 
 	Drop remaining dependencies on nregex.
@@ -10,7 +20,7 @@
 2007-11-24  Helmut Eller  <heller at common-lisp.net>
 
 	Mirror *modules* in Emacs.
-	
+
 	* slime.el (slime-lisp-modules): New connction variable.
 	(slime-set-connection-info): Load requested modules.
 	(slime-required-modules): New variable.
@@ -18,7 +28,7 @@
 
 	* swank.lisp (connection-info): Include *modules*.
 	(swank-require): Accept a list of modules as argument.
-	
+
 2007-11-24  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (parse-package): The old version didn't pass the
@@ -38,7 +48,7 @@
 	most-positive-fixnum. This prints each frame in the backtrace in a
 	single long line.  But is suboptimal for other purposes, like
 	eval-in-frame.
-	
+
 	(setup-server): Initialize multiprocessing here, so that is also
 	done for create-server.
 
@@ -46,7 +56,7 @@
 
 	* swank.lisp (swank-require): Fix typo (:key was used instead of
 	:test.)  Reported by Stelian Ionescu.
-	
+
 2007-11-22  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (swank-require): Don't search the file if the