Mercurial > emacs
changeset 23247:1f91824c4087
(mark-sexp-diary-entries): Fix previous chg.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 13 Sep 1998 03:45:02 +0000 |
| parents | 3741d2ab743a |
| children | 6119bb0ddd69 |
| files | lisp/calendar/diary-lib.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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 )))