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 | 2c9ad69fecd6f560cb6bc4bd9021d6acb7c39e0a (patch) | |
| tree | b5c33a8ec720786d7a940309ded9adabcc75fa16 /lisp/bookmark.el | |
| parent | 73e78cf15e394e3fa9a79d9aa0d75a48c005834d (diff) | |
| download | emacs-2c9ad69fecd6f560cb6bc4bd9021d6acb7c39e0a.tar.gz | |
(bookmark-automatically-show-annotations): new var.
(bookmark-jump): only show annotation if above var is non-nil.
Diffstat (limited to 'lisp/bookmark.el')
| -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) |