# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1207885595 0
# Node ID 601131d03e758a70a847b1ab2dfb55912fe7cbe3
# Parent  5310823a757f89403512a6fa23caf5cb72947f3d
Move custom group here from calendar.el.

diff -r 5310823a757f -r 601131d03e75 lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Fri Apr 11 03:45:26 2008 +0000
+++ b/lisp/calendar/diary-lib.el	Fri Apr 11 03:46:35 2008 +0000
@@ -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 @@
         (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