Mercurial > emacs
changeset 66192:16f7998a8424
* bookmark.el (bookmark-insert-location, bookmark-bmenu-list)
(bookmark-bmenu-hide-filenames): Improve help-echo text.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Tue, 18 Oct 2005 18:29:11 +0000 |
| parents | 3b427dc36c6e |
| children | 654295366299 db4e74787e6f |
| files | lisp/ChangeLog lisp/bookmark.el |
| diffstat | 2 files changed, 25 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Oct 18 16:13:18 2005 +0000 +++ b/lisp/ChangeLog Tue Oct 18 18:29:11 2005 +0000 @@ -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.
--- a/lisp/bookmark.el Tue Oct 18 16:13:18 2005 +0000 +++ b/lisp/bookmark.el Tue Oct 18 18:29:11 2005 +0000 @@ -1175,13 +1175,14 @@ (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 @@ (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 @@ (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))))))))