From 8b1b64617b37243f75c4052653761d2e2a3943f3 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Tue, 18 Oct 2005 18:29:11 +0000 Subject: [PATCH] * bookmark.el (bookmark-insert-location, bookmark-bmenu-list) (bookmark-bmenu-hide-filenames): Improve help-echo text. --- lisp/ChangeLog | 1 + lisp/bookmark.el | 45 ++++++++++++++++++++++++--------------------- 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)))))))) -- 2.39.5