[Emacs-diffs] Changes to emacs/lisp/bookmark.el

[Carsten Dominik]

Index: emacs/lisp/bookmark.el
diff -c emacs/lisp/bookmark.el:1.78 emacs/lisp/bookmark.el:1.79
*** emacs/lisp/bookmark.el:1.78 Tue Aug  9 02:54:39 2005
--- emacs/lisp/bookmark.el      Wed Aug 24 10:18:29 2005
***************
*** 1037,1042 ****
--- 1037,1046 ----
                     (lambda (x y) (string-lessp (car x) (car y))))))))
  
  
+ (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)
    "Jump to bookmark BOOKMARK (a point in some file).
***************
*** 1059,1064 ****
--- 1063,1069 ----
      (and cell
           (switch-to-buffer (car cell))
           (goto-char (cdr cell))
+        (progn (run-hooks 'bookmark-jump-hook) t)
         (if bookmark-automatically-show-annotations
               ;; if there is an annotation for this bookmark,
               ;; show it in a buffer.