[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
Cleanup slime-repl-set-package.

* slime.el (slime-repl-set-package): Make it fit within 80 columns.


--- /project/slime/cvsroot/slime/ChangeLog	2008/02/05 12:06:22	1.1282
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/09 18:31:58	1.1283
@@ -1,3 +1,9 @@
+2008-02-07  Helmut Eller  <heller at common-lisp.net>
+
+	Cleanup slime-repl-set-package.
+
+	* slime.el (slime-repl-set-package): Make it fit within 80 columns.
+
 2008-02-05  Marco Baringer  <mb at bese.it>
 
 	* slime.el (slime-search-buffer-package): Ask the lisp to read the
--- /project/slime/cvsroot/slime/slime.el	2008/02/05 12:43:51	1.901
+++ /project/slime/cvsroot/slime/slime.el	2008/02/09 18:31:58	1.902
@@ -2267,11 +2267,7 @@
     (save-excursion
       (when (or (re-search-backward regexp nil t)
                 (re-search-forward regexp nil t))
-        ;; package name can be a string designator, convert it to a string.
-        ;;(slime-eval `(cl:string (cl:second (cl:read-from-string ,(match-string-no-properties 0))))
-        ;;            "COMMON-LISP-USER")
-        (match-string-no-properties 2)
-        ))))
+        (match-string-no-properties 2)))))
 
 ;;; Synchronous requests are implemented in terms of asynchronous
 ;;; ones. We make an asynchronous request with a continuation function
@@ -3321,12 +3317,11 @@
 
 (defun slime-repl-set-package (package)
   "Set the package of the REPL buffer to PACKAGE."
-  (interactive (list (slime-read-package-name "Package: "
-                                              (if (string= (slime-current-package)
-                                                           (with-current-buffer (slime-repl-buffer)
-                                                             (slime-current-package)))
-                                                nil
-                                                (slime-pretty-find-buffer-package)))))
+  (interactive (list (slime-read-package-name 
+                      "Package: "
+                      (if (equal (slime-current-package) (slime-lisp-package))
+                          nil
+                        (slime-pretty-find-buffer-package)))))
   (with-current-buffer (slime-output-buffer)
     (let ((unfinished-input (slime-repl-current-input)))
       (destructuring-bind (name prompt-string)
@@ -9630,7 +9625,7 @@
 ;; Local Variables: 
 ;; outline-regexp: ";;;;+"
 ;; indent-tabs-mode: nil
-;; coding: latin-1-unix!
+;; coding: latin-1-unix
 ;; unibyte: t
 ;; compile-command: "emacs -batch -L . -eval '(byte-compile-file \"slime.el\")' ; rm -v slime.elc"
 ;; End: