Mercurial > emacs

changeset 93994:601131d03e75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move custom group here from calendar.el.
author Glenn Morris <rgm@gnu.org>
date Fri, 11 Apr 2008 03:46:35 +0000
parents 5310823a757f
children 27365ac56ead
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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