From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 1 Mar 2000 10:28:44 +0000 (+0000)
Subject: (list-diary-entries): Don't try to go forward at
X-Git-Tag: emacs-pretest-21.0.90~4836
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d3ff86996a57fbdbe9a9fa94f18e0beac70b12c;p=emacs.git

(list-diary-entries): Don't try to go forward at
the end of the buffer.
---

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