[slime-cvs] CVS update: slime/slime.el

[Alan Ruttenberg]

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

Modified Files:
	slime.el 
Log Message:

Date: Thu Aug 11 05:07:07 2005
Author: aruttenberg

Index: slime/slime.el
diff -u slime/slime.el:1.521 slime/slime.el:1.522
--- slime/slime.el:1.521	Wed Aug 10 21:57:56 2005
+++ slime/slime.el	Thu Aug 11 05:07:07 2005
@@ -3100,7 +3100,6 @@
     ((:abort) (slime-repl-show-abort))))
 
 (defun slime-repl-send-string (string &optional command-string)
-  (slime-repl-add-to-input-history (or command-string string))
   (cond (slime-repl-read-mode
          (slime-repl-return-string string))
         (t (slime-repl-eval-string string))))
@@ -3263,6 +3262,11 @@
     (overlay-put overlay 'read-only t)
     (overlay-put overlay 'face 'slime-repl-input-face)
     (overlay-put overlay 'rear-nonsticky '(face slime-repl-old-input-counter)))
+
+  (slime-repl-add-to-input-history 
+   (buffer-substring slime-repl-input-start-mark
+                     slime-repl-input-end-mark)) 
+
   (let ((input (slime-repl-current-input)))
     (goto-char slime-repl-input-end-mark)
     (slime-mark-input-start)