(mark-sexp-diary-entries): Avoid infinite loop when

sexp entry ends at end of file with no newline.

lisp/calendar/diary-lib.el

@@ -842,7 +842,8 @@ is marked.  See the documentation for the function `list-sexp-diary-entries'."
           (setq entry-start (point))
           (re-search-forward "\^M\\|\n" nil t)
           (while (looking-at " \\|\^I")
-            (re-search-forward "\^M\\|\n" nil t))
+ 	    (or (re-search-forward "\^M\\|\n" nil t)
+ 		(re-search-forward "$" nil t)))
           (backward-char 1)
           (setq entry (buffer-substring-no-properties entry-start (point)))
           (while (string-match "[\^M]" entry)