# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 992776867 0
# Node ID 7137508c16aa75097f5f850ca1efbc98fec09813
# Parent  30c899dc34c4f2f224ff70f8d679de8fc5b1e6d1
(compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.
(compilation-forget-errors): Remove help-echo property as well.

diff -r 30c899dc34c4 -r 7137508c16aa lisp/progmodes/compile.el
--- 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.