mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(bookmark-insert-location, bookmark-bmenu-list)

Browse Source 
(bookmark-bmenu-hide-filenames): Add help-echo to mouse-highlighted text.
(bookmark-bmenu-show-filenames): Remove help-echo property from
the whitespace.
This commit is contained in:
Eli Zaretskii 2001-06-24 11:14:12 +00:00
parent 015a26d79c
commit 2fbb6576c8
1 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lisp/bookmark.el
View File

@ -1171,11 +1171,12 @@ minibuffer history list `bookmark-history'."
(prog1
(insert (bookmark-location bookmark)) ; *Return this line*
(if (and (display-color-p) (display-mouse-p))
(put-text-property start
(save-excursion (re-search-backward
"[^ \t]")
(1+ (point)))
'mouse-face 'highlight)))))
(add-text-properties start
(save-excursion (re-search-backward
"[^ \t]")
(1+ (point)))
'(mouse-face highlight
help-echo "mouse-2: go to this bookmark"))))))
;;;###autoload
(defalias 'bookmark-locate 'bookmark-insert-location)
@ -1557,11 +1558,12 @@ 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))
(put-text-property start
(save-excursion (re-search-backward
"[^ \t]")
(1+ (point)))
'mouse-face 'highlight))
(add-text-properties start
(save-excursion (re-search-backward
"[^ \t]")
(1+ (point)))
'(mouse-face highlight
help-echo "mouse-2: go to this bookmark")))
(insert "\n")
)))
bookmark-alist))
@ -1654,7 +1656,7 @@ Optional argument SHOW means show them unconditionally."
;; Strip off `mouse-face' from the white spaces region.
(if (and (display-color-p) (display-mouse-p))
(remove-text-properties start (point)
'(mouse-face))))
'(mouse-face nil help-echo nil))))
(delete-region (point) (progn (end-of-line) (point)))
(insert " ")
;; Pass the NO-HISTORY arg:
@ -1684,11 +1686,13 @@ Optional argument SHOW means show them unconditionally."
(let ((start (point)))
(insert (car bookmark-bmenu-hidden-bookmarks))
(if (and (display-color-p) (display-mouse-p))
(put-text-property start
(save-excursion (re-search-backward
"[^ \t]")
(1+ (point)))
'mouse-face 'highlight)))
(add-text-properties start
(save-excursion (re-search-backward
"[^ \t]")
(1+ (point)))
'(mouse-face highlight
help-echo
"mouse-2: go to this bookmark"))))
(setq bookmark-bmenu-hidden-bookmarks
(cdr bookmark-bmenu-hidden-bookmarks))
(forward-line 1))))))))