(bookmark-automatically-show-annotations): new var.

(bookmark-jump): only show annotation if above var is non-nil.

1 files changed, 9 insertions, 4 deletions

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 79b2904898a..645a55688ce 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -5,7 +5,7 @@
 ;; Author: Karl Fogel <kfogel@cyclic.com>
 ;; Maintainer: Karl Fogel <kfogel@cyclic.com>
 ;; Created: July, 1993
-;; Author's Update Number: 2.6.9
+;; Author's Update Number: 2.6.10
 ;; Keywords: bookmarks, placeholders, annotations
 
 ;;; Summary:
@@ -252,6 +252,10 @@ name.  Otherwise they will be displayed in LIFO order (that is, most
 recently set ones come first, oldest ones come last).")
 
 
+(defvar bookmark-automatically-show-annotations t
+  "*Nil means don't show annotations when jumping to a bookmark.")
+
+
 (defvar bookmark-search-size 16
   "Length of the context strings recorded on either side of a bookmark.")
 
@@ -980,9 +984,10 @@ of the old one in the permanent bookmark record."
     (and cell
          (switch-to-buffer (car cell))
          (goto-char (cdr cell))
-         ;; if there is an annotation for this bookmark,
-         ;; show it in a buffer.
-         (bookmark-show-annotation str))))
+         (if bookmark-automatically-show-annotations
+             ;; if there is an annotation for this bookmark,
+             ;; show it in a buffer.
+             (bookmark-show-annotation str)))))
 
 
 (defun bookmark-jump-noselect (str)