# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 951906524 0
# Node ID a7103162350026ce09c6c215e1d35cfca9c8b933
# Parent  b54fc217c5c8aa40971ee1e42b106db47aa1efde
(list-diary-entries): Don't try to go forward at
the end of the buffer.

diff -r b54fc217c5c8 -r a71031623500 lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Wed Mar 01 10:27:54 2000 +0000
+++ b/lisp/calendar/diary-lib.el	Wed Mar 01 10:28:44 2000 +0000
@@ -255,10 +255,12 @@
             (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"))