/[emacs]/emacs/lisp/bookmark.el
ViewVC logotype

Diff of /emacs/lisp/bookmark.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by gerd, Tue Sep 4 13:17:29 2001 UTC revision 1.58 by sds, Tue Nov 27 15:52:52 2001 UTC
# Line 539  being set.  This might change someday. Line 539  being set.  This might change someday.
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    
# Line 661  affect point." Line 660  affect point."
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    
# Line 1347  for a file, defaulting to the file defin Line 1346  for a file, defaulting to the file defin
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)

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26