From 866a7257074ddd50ee36f5989345d4abcce08b79 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 24 Aug 2005 10:18:29 +0000 Subject: [PATCH] (bookmark-after-jump-hook): New hook. (bookmark-jump): Run `bookmark-after-jump-hook'. --- lisp/bookmark.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/bookmark.el b/lisp/bookmark.el index da8a4e2b809..043b8d54d1b 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -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. -- 2.11.4.GIT