(comint-insert-input): Fix previous change.

diff --git a/lisp/comint.el b/lisp/comint.el
index 16fd97821163a8e299bc0e3a25e7e2bd618d42a9..352ed876ee003ca4b68dae37ed2f8d44b0c8c609 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -788,7 +788,7 @@ 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 "@")
+  (interactive "e")
   (if event (mouse-set-point event))
   (let ((pos (point)))
     (if (not (eq (get-char-property pos 'field) 'input))