[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv30123/contrib

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* contrib/slime-repl.el (slime-repl-set-package): Don't double unfinished input
and don't move point if it's inside the input area.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/10/10 07:58:20	1.253
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/10/11 22:16:19	1.254
@@ -1,3 +1,8 @@
+2009-10-12  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-repl.el (slime-repl-set-package): Don't double unfinished input
+	and don't move point if it's inside the input area.
+
 2009-10-10  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-fontifying-fu.el (slime-search-suppressed-forms): Add
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/09/29 03:21:31	1.27
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/10/11 22:16:19	1.28
@@ -847,14 +847,15 @@
                             (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)))
+    (let ((previouse-point (- (point) slime-repl-input-start-mark)))
       (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)
-        (insert unfinished-input)))))
+        (when (plusp previouse-point)
+          (goto-char (+ previouse-point slime-repl-input-start-mark)))))))
 
 
 ;;;;; History