From 2da637a5386439117b24b3eccd1e4138a06dfa81 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 29 Jan 2005 16:58:34 +0000 Subject: [PATCH] (comint-insert-input): Undo previous changes; use last-input-event in interactive spec. --- lisp/comint.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.39.5