788 |
|
|
789 |
(defun comint-insert-input (&optional event) |
(defun comint-insert-input (&optional event) |
790 |
"In a Comint buffer, set the current input to the previous input at point." |
"In a Comint buffer, set the current input to the previous input at point." |
791 |
(interactive "@") |
(interactive "e") |
792 |
(if event (mouse-set-point event)) |
(if event (mouse-set-point event)) |
793 |
(let ((pos (point))) |
(let ((pos (point))) |
794 |
(if (not (eq (get-char-property pos 'field) 'input)) |
(if (not (eq (get-char-property pos 'field) 'input)) |