# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 905658302 0
# Node ID 1f91824c40876cdde0a1ca5350c269d59afa0c4b
# Parent  3741d2ab743ac120584303a7ad2a1a01fcb42bf5
(mark-sexp-diary-entries): Fix previous chg.

diff -r 3741d2ab743a -r 1f91824c4087 lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Sun Sep 13 03:42:11 1998 +0000
+++ b/lisp/calendar/diary-lib.el	Sun Sep 13 03:45:02 1998 +0000
@@ -840,11 +840,14 @@
               (backward-char 1)
               (setq entry ""))
           (setq entry-start (point))
+          ;; Find end of entry
           (re-search-forward "\^M\\|\n" nil t)
           (while (looking-at " \\|\^I")
  	    (or (re-search-forward "\^M\\|\n" nil t)
  		(re-search-forward "$" nil t)))
-          (backward-char 1)
+          (if (or (char-equal (preceding-char) ?\^M)
+ 		  (char-equal (preceding-char) ?\n))
+ 	      (backward-char 1))
           (setq entry (buffer-substring-no-properties entry-start (point)))
           (while (string-match "[\^M]" entry)
             (aset entry (match-beginning 0) ?\n )))