[slime-cvs] CVS slime

[alendvai]

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

Modified Files:
	slime.el 
Log Message:
slime-repl-kill-input kills the entire input when point is at the prompt and resets the history navigation state


--- /project/slime/cvsroot/slime/slime.el	2006/12/11 12:29:37	1.699
+++ /project/slime/cvsroot/slime/slime.el	2006/12/11 12:35:08	1.700
@@ -3888,10 +3888,15 @@
   (delete-region slime-repl-input-start-mark slime-repl-input-end-mark))
 
 (defun slime-repl-kill-input ()
-  "Kill all text from last stuff output by the Lisp process to point."
-  (interactive)
-  (when (> (point) (marker-position slime-repl-input-start-mark))
-    (kill-region slime-repl-input-start-mark (point))))
+  "Kill all text from the prompt to point and reset repl history
+navigation state. If point is right after the prompt then delete
+the entire input."
+  (interactive)
+  (cond ((> (point) (marker-position slime-repl-input-start-mark))
+         (kill-region slime-repl-input-start-mark (point)))
+        ((= (point) (marker-position slime-repl-input-start-mark))
+         (slime-repl-delete-current-input)))
+  (setf slime-repl-input-history-position -1))
 
 (defun slime-repl-replace-input (string)
   (slime-repl-delete-current-input)