539 |
Optional second arg INFO-NODE means this bookmark is at info node |
Optional second arg INFO-NODE means this bookmark is at info node |
540 |
INFO-NODE, so record this fact in the bookmark's entry." |
INFO-NODE, so record this fact in the bookmark's entry." |
541 |
(let ((the-record |
(let ((the-record |
542 |
(` ((filename . (, (bookmark-buffer-file-name))) |
`((filename . ,(bookmark-buffer-file-name)) |
543 |
(front-context-string |
(front-context-string |
544 |
. (, (if (>= (- (point-max) (point)) bookmark-search-size) |
. ,(if (>= (- (point-max) (point)) bookmark-search-size) |
545 |
(buffer-substring-no-properties |
(buffer-substring-no-properties |
546 |
(point) |
(point) |
547 |
(+ (point) bookmark-search-size)) |
(+ (point) bookmark-search-size)) |
548 |
nil))) |
nil)) |
549 |
(rear-context-string |
(rear-context-string |
550 |
. (, (if (>= (- (point) (point-min)) bookmark-search-size) |
. ,(if (>= (- (point) (point-min)) bookmark-search-size) |
551 |
(buffer-substring-no-properties |
(buffer-substring-no-properties |
552 |
(point) |
(point) |
553 |
(- (point) bookmark-search-size)) |
(- (point) bookmark-search-size)) |
554 |
nil))) |
nil)) |
555 |
(position . (, (point))) |
(position . ,(point))))) |
|
)))) |
|
556 |
|
|
557 |
;; Now fill in the optional parts: |
;; Now fill in the optional parts: |
558 |
|
|
660 |
(ann (nth 4 record))) |
(ann (nth 4 record))) |
661 |
(list |
(list |
662 |
name |
name |
663 |
(` ((filename . (, filename)) |
`((filename . ,filename) |
664 |
(front-context-string . (, (or front-str ""))) |
(front-context-string . ,(or front-str "")) |
665 |
(rear-context-string . (, (or rear-str ""))) |
(rear-context-string . ,(or rear-str "")) |
666 |
(position . (, position)) |
(position . ,position) |
667 |
(annotation . (, ann))))))) |
(annotation . ,ann))))) |
668 |
old-list)) |
old-list)) |
669 |
|
|
670 |
|
|
1346 |
(set-buffer (let ((enable-local-variables nil)) |
(set-buffer (let ((enable-local-variables nil)) |
1347 |
(find-file-noselect file))) |
(find-file-noselect file))) |
1348 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1349 |
(let ((print-length nil) |
(let ((print-length nil) |
1350 |
(print-level nil)) |
(print-level nil)) |
1351 |
(delete-region (point-min) (point-max)) |
(delete-region (point-min) (point-max)) |
1352 |
(bookmark-insert-file-format-version-stamp) |
(bookmark-insert-file-format-version-stamp) |