[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime-repl.el (slime-repl-set-package): Don't redisplay the
prompt if it doesn't change.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/10/01 02:32:58	1.494
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/10/01 19:45:54	1.495
@@ -1,5 +1,10 @@
 2011-10-01  Stas Boukarev  <stassats at gmail.com>
 
+	* slime-repl.el (slime-repl-set-package): Don't redisplay the
+	prompt if it doesn't change.
+
+2011-10-01  Stas Boukarev  <stassats at gmail.com>
+
 	* slime-fuzzy.el (slime-fuzzy-done): Fix completion in the minibuffer.
 
 2011-10-01  Stas Boukarev  <stassats at gmail.com>
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2011/08/30 15:34:10	1.54
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2011/10/01 19:45:54	1.55
@@ -899,13 +899,15 @@
                             (p (and (not (equal p (slime-lisp-package))) p)))
                        (slime-read-package-name "Package: " p))))
   (with-current-buffer (slime-output-buffer)
-    (let ((previouse-point (- (point) slime-repl-input-start-mark)))
+    (let ((previouse-point (- (point) slime-repl-input-start-mark))
+          (previous-prompt (slime-lisp-package-prompt-string)))
       (destructuring-bind (name prompt-string)
           (slime-repl-shortcut-eval `(swank:set-package ,package))
         (setf (slime-lisp-package) name)
-        (setf (slime-lisp-package-prompt-string) prompt-string)
         (setf slime-buffer-package name)
-        (slime-repl-insert-prompt)
+        (unless (equal previous-prompt prompt-string)
+          (setf (slime-lisp-package-prompt-string) prompt-string)
+          (slime-repl-insert-prompt))
         (when (plusp previouse-point)
           (goto-char (+ previouse-point slime-repl-input-start-mark)))))))