I plan on committing this patch later this weekend.
jeff
ChangeLog addition:
2008-04-05 Jeff Miller <jmiller(a)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
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches