# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 984147659 0
# Node ID 8e8c4af5a4ae91fb21283ee76649a106aa5b2d97
# Parent  c7ec74e4f2de453f4086cca9a86e64c523137433
(comint-insert-clicked-input): Use the last key
from this-command-keys to lookup the global key definition.

diff -r c7ec74e4f2de -r 8e8c4af5a4ae lisp/comint.el
--- a/lisp/comint.el	Fri Mar 09 12:40:47 2001 +0000
+++ b/lisp/comint.el	Fri Mar 09 14:20:59 2001 +0000
@@ -784,7 +784,7 @@
 		(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 @@
 		(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))))))