Commit 909a9182 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(comint-insert-clicked-input): Use the last key

from this-command-keys to lookup the global key definition.
parent 95522746
......@@ -784,7 +784,7 @@ buffer. The hook `comint-exec-hook' is run after each exec."
(dolist (ov (overlays-at (posn-point (event-end event))))
(when (eq (overlay-get ov 'field) 'input)
(throw 'found ov))))))
;; do we have input in this area?
;; Do we have input in this area?
(if over
(let ((input-str (buffer-substring (overlay-start over)
(overlay-end over))))
......@@ -794,9 +794,10 @@ buffer. The hook `comint-exec-hook' is run after each exec."
(process-mark (get-buffer-process (current-buffer))))
(point))
(insert input-str))
;; fall back to the user's previous definition if we aren't
;; on previous input region.
(let ((fun (lookup-key global-map (this-command-keys))))
;; Fall back to the global definition.
(let* ((keys (this-command-keys))
(last-key (and (vectorp keys) (aref keys (1- (length keys)))))
(fun (and last-key (lookup-key global-map (vector last-key)))))
(if fun (call-interactively fun))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment