* bookmark.el (bookmark-insert-location, bookmark-bmenu-list)

(bookmark-bmenu-hide-filenames): Add follow-link property.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c03cbca25a491d4712e71b981d56cd2b421a97e8..a5aee80ac2f580bf55932ebb33086489bae9b069 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-10-18  Romain Francoise  <romain@orebokech.com>
 
+       * bookmark.el (bookmark-insert-location, bookmark-bmenu-list)
+       (bookmark-bmenu-hide-filenames): Add follow-link property.
+
        * ffap.el (find-file-at-point): Doc fix.
 
 2005-10-18  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 8014915a72ef866d31b3aa25202b16be187ed6f6..0ad70f6e3a79cb9d02ff1b28beace23d89d75f2b 100644 (file)
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1180,6 +1180,7 @@ minibuffer history list `bookmark-history'."
                                                "[^ \t]")
                                               (1+ (point)))
                               '(mouse-face highlight
+                                follow-link t
                                 help-echo "mouse-2: go to this bookmark"))))))
 
 ;;;###autoload
@@ -1571,6 +1572,7 @@ deletion, or > if it is flagged for displaying."
                                                     "[^ \t]")
                                                    (1+ (point)))
                                    '(mouse-face highlight
+                                     follow-link t
                                      help-echo "mouse-2: go to this bookmark")))
           (insert "\n")
           )))
@@ -1700,6 +1702,7 @@ Optional argument SHOW means show them unconditionally."
                                                            "[^ \t]")
                                                           (1+ (point)))
                                           '(mouse-face highlight
+                                            follow-link t
                                             help-echo
                                             "mouse-2: go to this bookmark"))))
                 (setq bookmark-bmenu-hidden-bookmarks