From: Glenn Morris <rgm@gnu.org>
Date: Fri, 11 Apr 2008 03:46:35 +0000 (+0000)
Subject: Move custom group here from calendar.el.
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/fe5ffe0b8428746bbb727d5e2c6f9d5dcb930e25

Move custom group here from calendar.el.
---

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 4f0724b0f3..af56fd8766 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