# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1107017914 0
# Node ID eb109ea1450a7095991c1ac766f9a1a2dd7dc3b6
# Parent  d39551ad7f40a4aa337817736455616ebd1ae21a
(comint-insert-input): Undo previous changes;
use last-input-event in interactive spec.

diff -r d39551ad7f40 -r eb109ea1450a lisp/comint.el
--- a/lisp/comint.el	Sat Jan 29 16:56:30 2005 +0000
+++ b/lisp/comint.el	Sat Jan 29 16:58:34 2005 +0000
@@ -788,7 +788,9 @@
 
 (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))