From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 Jan 2005 16:58:34 +0000 (+0000)
Subject: (comint-insert-input): Undo previous changes;
X-Git-Tag: ttn-vms-21-2-B4~2550
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2da637a5386439117b24b3eccd1e4138a06dfa81;p=emacs.git

(comint-insert-input): Undo previous changes;
use last-input-event in interactive spec.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index 9f93fe75b1f..f96da7fa0fd 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -788,7 +788,9 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
 
 (defun comint-insert-input (&optional event)
   "In a Comint buffer, set the current input to the previous input at point."
-  (interactive "e")
+  ;; This doesn't use "e" because it is supposed to work
+  ;; for events without parameters.
+  (interactive (list last-input-event))
   (if event (mouse-set-point event))
   (let ((pos (point)))
     (if (not (eq (get-char-property pos 'field) 'input))