diff options
| author | Karl Fogel <kfogel@red-bean.com> | 1995-03-20 14:46:38 +0000 |
|---|---|---|
| committer | Karl Fogel <kfogel@red-bean.com> | 1995-03-20 14:46:38 +0000 |
| commit | da1c5a3d888bdda721da962b7cc91538d35a0a0a (patch) | |
| tree | 5496ac7f673e5d1690ea480b3bbc82c6b3e081ec | |
| parent | c1a34130a53b335f37bdc2f4f3a3d0bed2e3f796 (diff) | |
| download | emacs-da1c5a3d888bdda721da962b7cc91538d35a0a0a.tar.gz | |
(bookmark-automatically-show-annotations): new var.
(bookmark-jump): only show annotation if above var is non-nil.
| -rw-r--r-- | lisp/bookmark.el | 13 |
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) |