[Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el

[Glenn Morris]

Index: emacs/lisp/calendar/diary-lib.el
diff -c emacs/lisp/calendar/diary-lib.el:1.108 
emacs/lisp/calendar/diary-lib.el:1.109
*** emacs/lisp/calendar/diary-lib.el:1.108      Sat Oct  8 04:49:37 2005
--- emacs/lisp/calendar/diary-lib.el    Tue Oct 25 07:33:34 2005
***************
*** 439,448 ****
                                   date-start temp)
                               (re-search-backward "\^M\\|\n\\|\\`")
                               (setq date-start (point))
!                              (re-search-forward "\^M\\|\n" nil t 2)
                               (while (looking-at " \\|\^I")
!                                (re-search-forward "\^M\\|\n" nil t))
!                              (backward-char 1)
                               (unless list-only
                                 (remove-overlays date-start (point)
                                                  'invisible 'diary))
--- 439,458 ----
                                   date-start temp)
                               (re-search-backward "\^M\\|\n\\|\\`")
                               (setq date-start (point))
!                              ;; When selective display (rather than
!                              ;; overlays) was used, diary file used to
!                              ;; start in a blank line and end in a
!                              ;; newline. Now that neither of these
!                              ;; need be true, 'move handles the latter
!                              ;; and 1/2 kludge the former.
!                              (re-search-forward
!                               "\^M\\|\n" nil 'move
!                               (if (and (bobp) (not (looking-at "\^M\\|\n")))
!                                   1
!                                 2))
                               (while (looking-at " \\|\^I")
!                                (re-search-forward "\^M\\|\n" nil 'move))
!                              (unless (eobp) (backward-char 1))
                               (unless list-only
                                 (remove-overlays date-start (point)
                                                  'invisible 'diary))