Mercurial > emacs
diff lisp/bookmark.el @ 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 | 21f14d2723e6 |
children | 54d9518d9113 |
line wrap: on
line diff
--- 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))))))))