From: Glenn Morris <rgm@gnu.org>
Date: Sat, 7 Apr 2007 21:53:39 +0000 (+0000)
Subject: (diary-font-lock-keywords, diary-live-p): Autoload these functions.
X-Git-Tag: emacs-pretest-22.0.98~212
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=109eecc05898a604124d1f5ce60ad43c01c2a52e;p=emacs.git

(diary-font-lock-keywords, diary-live-p): Autoload these functions.
(diary-date-forms): Add a custom :set form.
---

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 18037e9b794..78f0ad115ec 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -629,6 +629,10 @@ See the documentation of `diary-date-forms' for an explanation."
 				       (choice symbol regexp)))))
   :group 'diary)
 
+(autoload 'diary-font-lock-keywords "diary-lib")
+(autoload 'diary-live-p "diary-lib")
+(defvar diary-font-lock-keywords)
+
 (defcustom diary-date-forms
   (if european-calendar-style
       european-date-diary-pattern
@@ -666,6 +670,15 @@ a portion of the first word of the diary entry."
 			 (repeat (list :inline t :format "%v"
 				       (symbol :tag "Keyword")
 				       (choice symbol regexp)))))
+  :initialize 'custom-initialize-default
+  :set (lambda (symbol value)
+         (unless (equal value (eval symbol))
+           (custom-set-default symbol value)
+           (setq diary-font-lock-keywords (diary-font-lock-keywords))
+           ;; Need to redraw not just to get new font-locking, but also
+           ;; to pick up any newly recognized entries.
+           (and (diary-live-p)
+                (diary))))
   :group 'diary)
 
 ;;;###autoload