[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el 
Log Message:

Use sane default values for slime-repl-set-package.

Previously, when typing `,!p' at the REPL, the current package
would have been inserted as a default (although the whole intent
was to /change/ the current package in the first place), now
nothing is inserted anymore.
	
* slime.el (slime-pretty-current-package): rename it to
  slime-pretty-find-buffer-package and make it use
  slime-find-buffer-package instead of slime-current-package.
  (slime-repl-set-package, slime-set-package): use new function.


--- /project/slime/cvsroot/slime/slime.el	2008/01/02 12:44:09	1.888
+++ /project/slime/cvsroot/slime/slime.el	2008/01/02 16:02:13	1.889
@@ -495,9 +495,9 @@
                     (t name))))
     (format "%s" (read name))))
 
-(defun slime-pretty-current-package ()
-  "Retrun a prettied version of `slime-current-package'."
-  (let ((p (slime-current-package)))
+(defun slime-pretty-find-buffer-package ()
+  "Return a prettied version of `slime-find-buffer-package'."
+  (let ((p (slime-find-buffer-package)))
     (and p (slime-pretty-package-name p))))
 
 (when slime-update-modeline-package
@@ -3310,7 +3310,7 @@
 (defun slime-repl-set-package (package)
   "Set the package of the REPL buffer to PACKAGE."
   (interactive (list (slime-read-package-name
-                      "Package: " (slime-pretty-current-package))))
+                      "Package: " (slime-pretty-find-buffer-package))))
   (with-current-buffer (slime-output-buffer)
     (let ((unfinished-input (slime-repl-current-input)))
       (destructuring-bind (name prompt-string)
@@ -6389,8 +6389,8 @@
     (message "Connection closed.")))
 
 (defun slime-set-package (package)
-  (interactive (list (slime-read-package-name "Package: " 
-					      (slime-pretty-current-package))))
+  (interactive (list (slime-read-package-name
+                      "Package: " (slime-pretty-find-buffer-package))))
   (message "*package*: %s" (slime-eval `(swank:set-package ,package))))
 
 (defun slime-set-default-directory (directory)