diff options
author | Gerd Moellmann <gerd@gnu.org> | 2000-03-01 10:28:44 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2000-03-01 10:28:44 +0000 |
commit | 205c34f55e7a21c875bbb337fdcffc74108e67d5 (patch) | |
tree | 79cca5ecdbed37c12b8527210cba2a3c704a7394 /lisp/calendar/diary-lib.el | |
parent | 7ffdea260292357dd7567e0b95d15f32e81c245e (diff) | |
download | emacs-205c34f55e7a21c875bbb337fdcffc74108e67d5.tar.gz |
(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 c8d88a2549d..4fdebb81e12 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")) |