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

[Matthias Koeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-kill-input): New command.
(slime-repl-mode-map): Bind it to C-c C-u, like in comint.
(slime-repl-easy-menu): Include it in the REPL menu.

Date: Sun Aug 28 17:09:25 2005
Author: mkoeppe

Index: slime/slime.el
diff -u slime/slime.el:1.530 slime/slime.el:1.531
--- slime/slime.el:1.530	Sun Aug 28 14:23:35 2005
+++ slime/slime.el	Sun Aug 28 17:09:22 2005
@@ -808,7 +808,8 @@
       [ "Goto Previous Prompt "  slime-repl-previous-prompt t ]
       [ "Goto Next Prompt "      slime-repl-next-prompt t ]
       [ "Clear Last Output"      slime-repl-clear-output t ]
-      [ "Clear Buffer "          slime-repl-clear-buffer t ])))
+      [ "Clear Buffer "          slime-repl-clear-buffer t ]
+      [ "Kill Current Input"     slime-repl-kill-input t ])))
       
 (defvar slime-sldb-easy-menu
   (let ((C '(slime-connected-p)))
@@ -3420,6 +3421,12 @@
 (defun slime-repl-delete-current-input ()
   (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))))
+
 (defun slime-repl-replace-input (string)
   (slime-repl-delete-current-input)
   (insert-and-inherit string))
@@ -3583,6 +3590,7 @@
   ("\C-\M-x" 'slime-eval-defun)
   ("\C-c\C-o" 'slime-repl-clear-output)
   ("\C-c\C-t" 'slime-repl-clear-buffer)
+  ("\C-c\C-u" 'slime-repl-kill-input)
   ("\C-c\C-n" 'slime-repl-next-prompt)
   ("\C-c\C-p" 'slime-repl-previous-prompt)
   ("\M-\C-a" 'slime-repl-beginning-of-defun)