[PATCH] calendar - turn on font-lock

[Jeff Miller]

I plan on committing this patch later this weekend.

jeff

ChangeLog addition:

2008-04-05  Jeff Miller  <jmiller at cablespeed.com>

	* calendar.el (calendar-mode): call font-lock-set-defaults to
	  set font-locking variables.  
	* diary-lib.el (diary-mode): same
	* diary-lib.el (fancy-diary-display-mode): same


calendar source patch:
Diff command:   cvs -q diff -u
Files affected: diary-lib.el calendar.el

Index: calendar.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/calendar.el,v
retrieving revision 1.17
diff -u -u -r1.17 calendar.el
--- calendar.el	2008/03/29 19:20:31	1.17
+++ calendar.el	2008/04/05 18:46:28
@@ -2498,6 +2498,9 @@
   (make-local-variable 'displayed-year)	;;  Year in middle of window.
   (set (make-local-variable 'font-lock-defaults)
        '(calendar-font-lock-keywords t))
+  ;; XEmacs change - running this turns on font-locking
+  ;; if font-locking is enabled. 
+  (font-lock-set-defaults)
   (run-mode-hooks 'calendar-mode-hook))
 
 (defun calendar-string-spread (strings char length)
Index: diary-lib.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/diary-lib.el,v
retrieving revision 1.11
diff -u -u -r1.11 diary-lib.el
--- diary-lib.el	2008/03/29 19:20:31	1.11
+++ diary-lib.el	2008/04/05 18:46:35
@@ -1926,6 +1926,10 @@
   ;; same as Emacs, we need to use make-local-hook to make the hook
   ;; local.
   (make-local-hook 'after-save-hook)
+  ;; XEmacs change - running this turns on font-locking
+  ;; if font-locking is enabled. 
+  (font-lock-set-defaults)
+
   (add-hook 'after-save-hook 'diary-redraw-calendar nil t)
   (if diary-header-line-flag
       (setq header-line-format diary-header-line-format)))
@@ -2021,6 +2025,10 @@
          t nil nil nil
          (font-lock-fontify-region-function
           . diary-fancy-font-lock-fontify-region-function)))
+  ;; XEmacs change - running this turns on font-locking
+  ;; if font-locking is enabled. 
+  (font-lock-set-defaults)
+
   ;; XEmacs change, we don't have quit-window, bury-buffer will suffice
   (local-set-key "q" (if (fboundp 'quit-window)
                          'quit-window