From 909a91822019470d81e1320a289de81397ad1a23 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 9 Mar 2001 14:20:59 +0000 Subject: [PATCH] (comint-insert-clicked-input): Use the last key from this-command-keys to lookup the global key definition. --- lisp/comint.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 921b567276f..b2b95dfe338 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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)))))) -- 2.39.5