From 32a091dd1996bd3b3f3c7ec2321c5c19e2c01642 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 9 Mar 2008 03:05:34 +0000 Subject: * 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. --- lisp/doc-view.el | 18 ++++-------------- 1 file changed, 4 insertions(+), 14 deletions(-) (limited to 'lisp/doc-view.el') 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)) -- cgit v1.2.3