diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-09 03:05:34 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-09 03:05:34 +0000 |
| commit | 32a091dd1996bd3b3f3c7ec2321c5c19e2c01642 (patch) | |
| tree | b98e6b2a21ff367bee7ecc34681189afede3e476 /lisp/doc-view.el | |
| parent | 604957164e5725e087a5c83e87a213e83e4c0a6e (diff) | |
| download | emacs-32a091dd1996bd3b3f3c7ec2321c5c19e2c01642.tar.gz emacs-32a091dd1996bd3b3f3c7ec2321c5c19e2c01642.tar.bz2 emacs-32a091dd1996bd3b3f3c7ec2321c5c19e2c01642.zip | |
* bookmark.el (bookmark-make): Don't pass the `annotation' to the
make-record function, instead paste it in afterwards.
(bookmark-make-record-for-text-file):
* doc-view.el (doc-view-bookmark-make-record):
* info.el (Info-bookmark-make-record): Don't mess with annotations.
Diffstat (limited to 'lisp/doc-view.el')
| -rw-r--r-- | lisp/doc-view.el | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 83420c72731..43d06f3c077 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -1082,20 +1082,10 @@ See the command `doc-view-mode' for more information on this mode." ;;;; Bookmark integration -(defun doc-view-bookmark-make-record (annotation) - (let ((the-record - `((filename . ,buffer-file-name) - (page . ,(doc-view-current-page)) - (handler . doc-view-bookmark-jump)))) - - ;; Take no chances with text properties - (set-text-properties 0 (length annotation) nil annotation) - - (when annotation - (nconc the-record (list (cons 'annotation annotation)))) - - ;; Finally, return the completed record. - the-record)) +(defun doc-view-bookmark-make-record () + `((filename . ,buffer-file-name) + (page . ,(doc-view-current-page)) + (handler . doc-view-bookmark-jump))) (declare-function bookmark-get-filename "bookmark" (bookmark)) |