Commit 08de70d7 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.

(compilation-forget-errors): Remove help-echo property as well.
parent 366be0de
......@@ -1299,9 +1299,10 @@ Does NOT find the source line like \\[next-error]."
(error-list compilation-error-list))
(while error-list
(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 @@ Pop up the buffer containing MARKER and scroll to MARKER if we ask the user."
(let ((inhibit-read-only t)
(buffer-undo-list t)
(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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment