From fe5ffe0b8428746bbb727d5e2c6f9d5dcb930e25 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 11 Apr 2008 03:46:35 +0000 Subject: [PATCH] Move custom group here from calendar.el. --- lisp/calendar/diary-lib.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 4f0724b0f33..af56fd87664 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -33,6 +33,11 @@ (require 'calendar) (require 'diary-loaddefs) +(defgroup diary nil + "Emacs diary." + :prefix "diary-" + :group 'calendar) + (defcustom diary-include-string "#include" "The string indicating inclusion of another file of diary entries. See the documentation for the function `diary-include-other-diary-files'." @@ -1351,6 +1356,8 @@ is marked. See the documentation for the function `diary-list-sexp-entries'." (if (bolp) (backward-char 1)) (setq entry (buffer-substring-no-properties entry-start (point)))) (setq date (1- first-date)) + ;; FIXME this loops over all visible dates. + ;; Could be optimized in many cases. Depends on whether t or * present. (while (<= (setq date (1+ date)) last-date) (when (setq mark (diary-sexp-entry sexp entry -- 2.39.5