[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/bookmark.el
From: |
Carsten Dominik |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/bookmark.el |
Date: |
Wed, 24 Aug 2005 06:18:29 -0400 |
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.