From 7d3ff86996a57fbdbe9a9fa94f18e0beac70b12c Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 1 Mar 2000 10:28:44 +0000 Subject: [PATCH] (list-diary-entries): Don't try to go forward at the end of the buffer. --- lisp/calendar/diary-lib.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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")) -- 2.39.5