Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

Move custom group here from calendar.el.

Browse source
This commit is contained in:
Glenn Morris 2008-04-11 03:46:35 +00:00
parent 712f117bfd
commit fe5ffe0b84
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/calendar/diary-lib.el
View file

@ -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