* lisp/calendar/diary-lib.el (diary-add-to-list): Simplify previous change.

This commit is contained in:
Glenn Morris 2011-05-06 00:30:20 -07:00
parent f36ba835b3
commit 897f8f20a7

View file

@ -651,9 +651,7 @@ Also removes the region between `diary-comment-start' and
;; Preserve the value with the comments.
(or literal (setq literal string))
(setq string (replace-regexp-in-string
(format "%s.*%s" cstart
(if (zerop (length diary-comment-end)) "$"
(regexp-quote diary-comment-end)))
(format "%s.*%s" cstart (regexp-quote diary-comment-end))
"" string)))
(setq diary-entries-list
(append diary-entries-list