-(defun image-bookmark-make-record (annotation)
- (let ((the-record
- `((filename . ,(buffer-file-name))
- (image-type . ,image-type)
- (position . ,(point))
- (handler . image-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))))
+(defun image-bookmark-make-record ()
+ (nconc (bookmark-make-record-default)
+ `((image-type . ,image-type)
+ (handler . image-bookmark-jump))))