mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(bookmark-after-jump-hook): New hook.

Browse source 
(bookmark-jump): Run `bookmark-after-jump-hook'.
This commit is contained in:
Carsten Dominik 2005-08-24 10:18:29 +00:00
parent 6cd70a8cb5
commit 866a725707
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/bookmark.el
View file

@ -1037,6 +1037,10 @@ For example, if this is a Info buffer, return the Info file's name."
(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,6 +1063,7 @@ of the old one in the permanent bookmark record."
(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.