/[emacs]/emacs/lisp/calendar/diary-lib.el
ViewVC logotype

Diff of /emacs/lisp/calendar/diary-lib.el

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

revision 1.108 by gm, Sat Oct 8 04:49:37 2005 UTC revision 1.109 by gm, Tue Oct 25 07:33:34 2005 UTC
# Line 439  If LIST-ONLY is non-nil don't modify or Line 439  If LIST-ONLY is non-nil don't modify or
439                                   date-start temp)                                   date-start temp)
440                               (re-search-backward "\^M\\|\n\\|\\`")                               (re-search-backward "\^M\\|\n\\|\\`")
441                               (setq date-start (point))                               (setq date-start (point))
442                               (re-search-forward "\^M\\|\n" nil t 2)                               ;; When selective display (rather than
443                                 ;; overlays) was used, diary file used to
444                                 ;; start in a blank line and end in a
445                                 ;; newline. Now that neither of these
446                                 ;; need be true, 'move handles the latter
447                                 ;; and 1/2 kludge the former.
448                                 (re-search-forward
449                                  "\^M\\|\n" nil 'move
450                                  (if (and (bobp) (not (looking-at "\^M\\|\n")))
451                                      1
452                                    2))
453                               (while (looking-at " \\|\^I")                               (while (looking-at " \\|\^I")
454                                 (re-search-forward "\^M\\|\n" nil t))                                 (re-search-forward "\^M\\|\n" nil 'move))
455                               (backward-char 1)                               (unless (eobp) (backward-char 1))
456                               (unless list-only                               (unless list-only
457                                 (remove-overlays date-start (point)                                 (remove-overlays date-start (point)
458                                                  'invisible 'diary))                                                  'invisible 'diary))

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

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