Mercurial > emacs
comparison lisp/comint.el @ 38073:54047d1b6974
(comint-send-input): Add help-echo to mouse-highlighted text.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 17 Jun 2001 11:17:17 +0000 |
| parents | 689e6d3dbdc2 |
| children | 153f1b1f2efd |
comparison
equal
deleted
inserted
replaced
| 38072:4dc11485950d | 38073:54047d1b6974 |
|---|---|
| 1440 ;; and output fields smoother. | 1440 ;; and output fields smoother. |
| 1441 (overlay-put over 'field 'input)) | 1441 (overlay-put over 'field 'input)) |
| 1442 (when comint-highlight-input | 1442 (when comint-highlight-input |
| 1443 (overlay-put over 'face 'comint-highlight-input) | 1443 (overlay-put over 'face 'comint-highlight-input) |
| 1444 (overlay-put over 'mouse-face 'highlight) | 1444 (overlay-put over 'mouse-face 'highlight) |
| 1445 (overlay-put over | |
| 1446 'help-echo | |
| 1447 "mouse-2: insert previous clicked-on input") | |
| 1445 (overlay-put over 'evaporate t)))) | 1448 (overlay-put over 'evaporate t)))) |
| 1446 (unless comint-use-prompt-regexp-instead-of-fields | 1449 (unless comint-use-prompt-regexp-instead-of-fields |
| 1447 ;; Make an overlay for the terminating newline | 1450 ;; Make an overlay for the terminating newline |
| 1448 (let ((over (make-overlay end (1+ end) nil t nil))) | 1451 (let ((over (make-overlay end (1+ end) nil t nil))) |
| 1449 (overlay-put over 'field 'boundary) | 1452 (overlay-put over 'field 'boundary) |