diff options
| author | Gerd Moellmann <[email protected]> | 2000-03-01 10:28:44 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2000-03-01 10:28:44 +0000 |
| commit | 7d3ff86996a57fbdbe9a9fa94f18e0beac70b12c (patch) | |
| tree | 4eed88c4ba8ba4147a86678daafefaea7b63ecb2 /lisp/calendar/diary-lib.el | |
| parent | 6b62286235528eac4fc7ffe9eb7478c1cce24ddc (diff) | |
(list-diary-entries): Don't try to go forward at
the end of the buffer.
Diffstat (limited to 'lisp/calendar/diary-lib.el')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index c8d88a2549..4fdebb81e1 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -255,10 +255,12 @@ These hooks have the following distinct roles: (let ((buffer-read-only nil) (diary-modified (buffer-modified-p)) (mark (regexp-quote diary-nonmarking-symbol))) + ;; First and last characters must be ^M or \n for + ;; selective display to work properly (goto-char (1- (point-max))) (if (not (looking-at "\^M\\|\n")) (progn - (forward-char 1) + (goto-char (point-max)) (insert-string "\^M"))) (goto-char (point-min)) (if (not (looking-at "\^M\\|\n")) |