From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 17 Jun 2001 11:21:07 +0000 (+0000)
Subject: (compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.
X-Git-Tag: emacs-pretest-21.0.104~243
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08de70d7bcf14e90cd0b54fe6d519aa02a48aa93;p=emacs.git

(compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.
(compilation-forget-errors): Remove help-echo property as well.
---

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.