Commit d0de6cba authored by Glenn Morris's avatar Glenn Morris
Browse files

Minor diary include improvement.

* lisp/calendar/diary-lib.el (diary-include-other-diary-files):
Trap some recursive includes.
parent c2828614
2010-09-29 Glenn Morris <>
* calendar/diary-lib.el (diary-include-other-diary-files):
Trap some recursive includes.
* calendar/appt.el (appt-activate): Check diary file.
2010-09-29 Katsumi Yamaoka <>
......@@ -848,16 +848,18 @@ the variable `diary-include-string'."
(diary-list-entries-hook 'diary-include-other-diary-files)
(diary-display-function 'ignore)
(diary-including t)
diary-hook diary-list-include-blanks)
diary-hook diary-list-include-blanks efile)
(if (file-exists-p diary-file)
(if (file-readable-p diary-file)
(setq diary-included-files
(append diary-included-files
(list (expand-file-name diary-file)))
(append diary-entries-list
(diary-list-entries original-date number)))
(if (member (setq efile (expand-file-name diary-file))
(error "Recursive diary include for %s" diary-file)
(setq diary-included-files
(append diary-included-files (list efile))
(append diary-entries-list
(diary-list-entries original-date number))))
(with-current-buffer (find-buffer-visiting diary-file)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment