Changeset 3823 for vendor/emacs-CVS_HEAD/lisp/bookmark.el

Timestamp:

08/26/05 22:31:18 (3 years ago)

Author:

miyoshi

Message:

Update.

Files:

• vendor/emacs-CVS_HEAD/lisp/bookmark.el (modified) (2 diffs)

vendor/emacs-CVS_HEAD/lisp/bookmark.el

@@ -1038 +1038 @@
-
-
+(defvar bookmark-after-jump-hook nil
+  "Hook run after `bookmark-jump' jumps to a bookmark.
+Useful for example to unhide text in `outline-mode'.")
+
-;;;###autoload
-(defun bookmark-jump (bookmark)
@@ -1060 +1064 @@
-         (switch-to-buffer (car cell))
-         (goto-char (cdr cell))
+         (progn (run-hooks 'bookmark-after-jump-hook) t)
-         (if bookmark-automatically-show-annotations
-             ;; if there is an annotation for this bookmark,