Mercurial > emacs
changeset 38077:7137508c16aa
(compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.
(compilation-forget-errors): Remove help-echo property as well.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 17 Jun 2001 11:21:07 +0000 |
| parents | 30c899dc34c4 |
| children | 8bc0292b0367 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Sun Jun 17 11:19:50 2001 +0000 +++ b/lisp/progmodes/compile.el Sun Jun 17 11:21:07 2001 +0000 @@ -1299,9 +1299,10 @@ (error-list compilation-error-list)) (while error-list (save-excursion - (put-text-property (goto-char (car (car error-list))) - (progn (end-of-line) (point)) - 'mouse-face 'highlight)) + (add-text-properties (goto-char (car (car error-list))) + (progn (end-of-line) (point)) + '(mouse-face highlight help-echo "\ +mouse-2: visit this file and line"))) (setq error-list (cdr error-list)))) ))))) @@ -1722,7 +1723,8 @@ (let ((inhibit-read-only t) (buffer-undo-list t) deactivate-mark) - (remove-text-properties (point-min) (point-max) '(mouse-face highlight)))) + (remove-text-properties (point-min) (point-max) + '(mouse-face highlight help-echo nil)))) ;; This function is not needed any more by compilation mode.