mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

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

Browse Source 
sexp entry ends at end of file with no newline.
This commit is contained in:
Karl Heuer 1998-09-10 16:03:07 +00:00
parent e63d9e3174
commit 94d1817dff
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/calendar/diary-lib.el
View File

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