diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-04-11 03:46:35 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-04-11 03:46:35 +0000 |
| commit | fe5ffe0b8428746bbb727d5e2c6f9d5dcb930e25 (patch) | |
| tree | 1b0528d3ccf1b441efc50e916ffc17b782c5072b /lisp | |
| parent | 712f117bfdb9330c0de5f5bdb6b409c27a7815b4 (diff) | |
| download | emacs-fe5ffe0b8428746bbb727d5e2c6f9d5dcb930e25.tar.gz | |
Move custom group here from calendar.el.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 7 |
1 files changed, 7 insertions, 0 deletions
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 |