From e20e70c3b32eb3b8c390e601695057e92901aa2a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 17 Jun 2001 11:17:17 +0000 Subject: [PATCH] (comint-send-input): Add help-echo to mouse-highlighted text. --- lisp/comint.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/comint.el b/lisp/comint.el index 213a0673106..ac5c20d77cb 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1442,6 +1442,9 @@ Similarly for Soar, Scheme, etc." (when comint-highlight-input (overlay-put over 'face 'comint-highlight-input) (overlay-put over 'mouse-face 'highlight) + (overlay-put over + 'help-echo + "mouse-2: insert previous clicked-on input") (overlay-put over 'evaporate t)))) (unless comint-use-prompt-regexp-instead-of-fields ;; Make an overlay for the terminating newline -- 2.39.2