* bookmark.el (bookmark-insert-location, bookmark-bmenu-list)

(bookmark-bmenu-hide-filenames): Improve help-echo text.

2 files changed, 25 insertions, 21 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90638b823db..da7c1765255 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -14,6 +14,7 @@
 
         * bookmark.el (bookmark-insert-location, bookmark-bmenu-list)
         (bookmark-bmenu-hide-filenames): Add follow-link property.
+        Improve help-echo text.
 
         * ffap.el (find-file-at-point): Doc fix.
 
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 0ad70f6e3a7..75228288fff 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1175,13 +1175,14 @@ minibuffer history list `bookmark-history'."
     (prog1
         (insert (bookmark-location bookmark)) ; *Return this line*
       (if (and (display-color-p) (display-mouse-p))
-          (add-text-properties start
-                               (save-excursion (re-search-backward
-                                                "[^ \t]")
+          (add-text-properties
+           start
+           (save-excursion (re-search-backward
+                            "[^ \t]")
                                                (1+ (point)))
-                               '(mouse-face highlight
-                                 follow-link t
-                                 help-echo "mouse-2: go to this bookmark"))))))
+           '(mouse-face highlight
+             follow-link t
+             help-echo "mouse-2: go to this bookmark in other window"))))))
 
 ;;;###autoload
 (defalias 'bookmark-locate 'bookmark-insert-location)
@@ -1567,13 +1568,14 @@ deletion, or > if it is flagged for displaying."
          (let ((start (point)))
            (insert (bookmark-name-from-full-record full-record))
            (if (and (display-color-p) (display-mouse-p))
-               (add-text-properties start
-                                    (save-excursion (re-search-backward
-                                                     "[^ \t]")
-                                                    (1+ (point)))
-                                    '(mouse-face highlight
-                                      follow-link t
-                                      help-echo "mouse-2: go to this bookmark")))
+               (add-text-properties
+                start
+                (save-excursion (re-search-backward
+                                 "[^ \t]")
+                                (1+ (point)))
+                '(mouse-face highlight
+                  follow-link t
+                  help-echo "mouse-2: go to this bookmark in other window")))
            (insert "\n")
            )))
      bookmark-alist))
@@ -1697,14 +1699,15 @@ Optional argument SHOW means show them unconditionally."
                 (let ((start (point)))
                   (insert (car bookmark-bmenu-hidden-bookmarks))
                   (if (and (display-color-p) (display-mouse-p))
-                      (add-text-properties start
-                                           (save-excursion (re-search-backward
-                                                            "[^ \t]")
-                                                           (1+ (point)))
-                                           '(mouse-face highlight
-                                             follow-link t
-                                             help-echo
-                                             "mouse-2: go to this bookmark"))))
+                      (add-text-properties
+                       start
+                       (save-excursion (re-search-backward
+                                        "[^ \t]")
+                                       (1+ (point)))
+                       '(mouse-face highlight
+                         follow-link t
+                         help-echo
+                         "mouse-2: go to this bookmark in other window"))))
                 (setq bookmark-bmenu-hidden-bookmarks
                       (cdr bookmark-bmenu-hidden-bookmarks))
                 (forward-line 1))))))))