Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 66929:35f26e779968
(diary-list-entries): Also hide the terminating newline.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 16 Nov 2005 16:04:29 +0000 |
| parents | cfc510b6c9e6 |
| children | a55ee709ec8d |
comparison
equal
deleted
inserted
replaced
| 66928:f48f5b0d7e1e | 66929:35f26e779968 |
|---|---|
| 450 (if (and (bobp) (not (looking-at "\^M\\|\n"))) | 450 (if (and (bobp) (not (looking-at "\^M\\|\n"))) |
| 451 1 | 451 1 |
| 452 2)) | 452 2)) |
| 453 (while (looking-at " \\|\^I") | 453 (while (looking-at " \\|\^I") |
| 454 (re-search-forward "\^M\\|\n" nil 'move)) | 454 (re-search-forward "\^M\\|\n" nil 'move)) |
| 455 (unless (eobp) (backward-char 1)) | 455 (unless (and (eobp) (not (bolp))) |
| 456 (backward-char 1)) | |
| 456 (unless list-only | 457 (unless list-only |
| 457 (remove-overlays date-start (point) | 458 (remove-overlays date-start (point) |
| 458 'invisible 'diary)) | 459 'invisible 'diary)) |
| 459 (setq entry (buffer-substring entry-start (point)) | 460 (setq entry (buffer-substring entry-start (point)) |
| 460 temp (diary-pull-attrs entry file-glob-attrs) | 461 temp (diary-pull-attrs entry file-glob-attrs) |