[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
Work harder to avoid wrong guesses for slime-repl-set-package.

* slime.el (slime-repl-set-package): Use slime-pretty-package-name
to strip double quotes from slime-current-package before comparing
it with slime-lisp-package.  Still doesn't deal with nicknames and
other reader tricks.


--- /project/slime/cvsroot/slime/ChangeLog	2008/02/24 16:49:49	1.1304
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/24 16:50:47	1.1305
@@ -1,9 +1,17 @@
+2008-02-24  Helmut Eller  <heller at common-lisp.net>
+
+	Work harder to avoid wrong guesses for slime-repl-set-package.
+
+	* slime.el (slime-repl-set-package): Use slime-pretty-package-name
+	to strip double quotes from slime-current-package before comparing
+	it with slime-lisp-package.  Still doesn't deal with nicknames and
+	other reader tricks.
+
 2008-02-23  Ariel Badichi <abadichi at bezeqint.net>
 
 	Allow ED-IN-EMACS to edit new files.
 
-	* swank.lisp (ed-in-emacs): Make it possible to canonicalize
-	filenames of non-existing files.
+	* swank.lisp (ed-in-emacs): Accept non-existing files.
 	(canonicalize-filename): Merged into ed-in-emacs.
 
 2008-02-23  Nikodemus Siivola  <nikodemus at random-state.net>
--- /project/slime/cvsroot/slime/slime.el	2008/02/23 10:29:06	1.912
+++ /project/slime/cvsroot/slime/slime.el	2008/02/24 16:50:48	1.913
@@ -3281,11 +3281,10 @@
 
 (defun slime-repl-set-package (package)
   "Set the package of the REPL buffer to PACKAGE."
-  (interactive (list (slime-read-package-name 
-                      "Package: "
-                      (if (equal (slime-current-package) (slime-lisp-package))
-                          nil
-                        (slime-pretty-find-buffer-package)))))
+  (interactive (list (let* ((p (slime-current-package))
+                            (p (and p (slime-pretty-package-name p)))
+                            (p (and (not (equal p (slime-lisp-package))) p)))
+                       (slime-read-package-name "Package: " p))))
   (with-current-buffer (slime-output-buffer)
     (let ((unfinished-input (slime-repl-current-input)))
       (destructuring-bind (name prompt-string)
@@ -5201,7 +5200,8 @@
   ;; FIXME: append SWANK xrefs and etags xrefs
   (funcall cont
            (or (slime-eval `(swank:find-definitions-for-emacs ,name))
-               (funcall slime-edit-definition-fallback-function name))))
+               (and slime-edit-definition-fallback-function
+                    (funcall slime-edit-definition-fallback-function name)))))
 
 (defun slime-find-tag-if-tags-table-visited (name)
   "Find tag (in current tags table) whose name contains NAME.