From 08de70d7bcf14e90cd0b54fe6d519aa02a48aa93 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 17 Jun 2001 11:21:07 +0000 Subject: [PATCH] (compile-reinitialize-errors): Add help-echo to mouse-highlighted messages. (compilation-forget-errors): Remove help-echo property as well. --- lisp/progmodes/compile.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 71978477ee3..3d0c399cf7c 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1299,9 +1299,10 @@ Does NOT find the source line like \\[next-error]." (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 @@ Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." (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. -- 2.39.2