diff options
| author | Romain Francoise <romain@orebokech.com> | 2005-10-18 18:29:11 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2005-10-18 18:29:11 +0000 |
| commit | d4568d9e3c42bba64dfaeeb534ad2a0533a5e8b1 (patch) | |
| tree | 33fe35c294b5222ba42db5ba203694df3e7900f5 /lisp/bookmark.el | |
| parent | 19078e0ea8c23d5f8f41806b411dd9fd2b32b9ca (diff) | |
| download | emacs-d4568d9e3c42bba64dfaeeb534ad2a0533a5e8b1.tar.gz | |
* bookmark.el (bookmark-insert-location, bookmark-bmenu-list)
(bookmark-bmenu-hide-filenames): Improve help-echo text.
Diffstat (limited to 'lisp/bookmark.el')
| -rw-r--r-- | lisp/bookmark.el | 45 |
1 files changed, 24 insertions, 21 deletions
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)))))))) |