1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00

(comint-send-input): Add help-echo to mouse-highlighted text.

This commit is contained in:
Eli Zaretskii 2001-06-17 11:17:17 +00:00
parent 27a1722977
commit e20e70c3b3

View File

@ -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