Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
866a7257
Commit
866a7257
authored
Aug 24, 2005
by
Carsten Dominik
Browse files
(bookmark-after-jump-hook): New hook.
(bookmark-jump): Run `bookmark-after-jump-hook'.
parent
6cd70a8c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
0 deletions
+5
-0
lisp/bookmark.el
lisp/bookmark.el
+5
-0
No files found.
lisp/bookmark.el
View file @
866a7257
...
...
@@ -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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment