# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 993381252 0
# Node ID fe0513d0f9743bd92f5c931b1e75d95ec82089d4
# Parent  aad260e72f97853871b947db9f0db9a0c71908cf
(bookmark-insert-location, bookmark-bmenu-list)
(bookmark-bmenu-hide-filenames): Add help-echo to mouse-highlighted text.
(bookmark-bmenu-show-filenames): Remove help-echo property from
the whitespace.

diff -r aad260e72f97 -r fe0513d0f974 lisp/bookmark.el
--- a/lisp/bookmark.el	Sun Jun 24 08:17:21 2001 +0000
+++ b/lisp/bookmark.el	Sun Jun 24 11:14:12 2001 +0000
@@ -1171,11 +1171,12 @@
     (prog1
 	(insert (bookmark-location bookmark)) ; *Return this line*
       (if (and (display-color-p) (display-mouse-p))
-	  (put-text-property start
-			     (save-excursion (re-search-backward
-					      "[^ \t]")
-					     (1+ (point)))
-			     'mouse-face 'highlight)))))
+	  (add-text-properties start
+			       (save-excursion (re-search-backward
+						"[^ \t]")
+					       (1+ (point)))
+			       '(mouse-face highlight
+				 help-echo "mouse-2: go to this bookmark"))))))
 
 ;;;###autoload
 (defalias 'bookmark-locate 'bookmark-insert-location)
@@ -1557,11 +1558,12 @@
 	 (let ((start (point)))
 	   (insert (bookmark-name-from-full-record full-record))
 	   (if (and (display-color-p) (display-mouse-p))
-	       (put-text-property start
-				  (save-excursion (re-search-backward
-						   "[^ \t]")
-						  (1+ (point)))
-				  'mouse-face 'highlight))
+	       (add-text-properties start
+				    (save-excursion (re-search-backward
+						     "[^ \t]")
+						    (1+ (point)))
+				    '(mouse-face highlight
+				      help-echo "mouse-2: go to this bookmark")))
 	   (insert "\n")
 	   )))
      bookmark-alist))
@@ -1654,7 +1656,7 @@
 		;; Strip off `mouse-face' from the white spaces region.
 		(if (and (display-color-p) (display-mouse-p))
 		    (remove-text-properties start (point)
-					    '(mouse-face))))
+					    '(mouse-face nil help-echo nil))))
 	      (delete-region (point) (progn (end-of-line) (point)))
               (insert "  ")
               ;; Pass the NO-HISTORY arg:
@@ -1684,11 +1686,13 @@
 		(let ((start (point)))
 		  (insert (car bookmark-bmenu-hidden-bookmarks))
 		  (if (and (display-color-p) (display-mouse-p))
-		      (put-text-property start
-					 (save-excursion (re-search-backward
-							  "[^ \t]")
-							 (1+ (point)))
-					 'mouse-face 'highlight)))
+		      (add-text-properties start
+					   (save-excursion (re-search-backward
+							    "[^ \t]")
+							   (1+ (point)))
+					   '(mouse-face highlight
+					     help-echo
+					     "mouse-2: go to this bookmark"))))
                 (setq bookmark-bmenu-hidden-bookmarks
                       (cdr bookmark-bmenu-hidden-bookmarks))
                 (forward-line 1))))))))