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)) |