# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1039113753 0
# Node ID ead34b52199425442fc6478974a77f0662ff7f57
# Parent  a74dd42cf01d4523fc93eec34b57db8ea4bdae0a
(facemenu-unlisted-faces): Only update after facemenu was loaded.
(calendar-font-lock-keywords): Accept non-ASCII month names.  Use regexp-opt.

diff -r a74dd42cf01d -r ead34b521994 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Thu Dec 05 17:03:06 2002 +0000
+++ b/lisp/calendar/calendar.el	Thu Dec 05 18:42:33 2002 +0000
@@ -204,7 +204,6 @@
   :type 'boolean
   :group 'view)
 
-(add-to-list 'facemenu-unlisted-faces 'diary-face)
 (defvar diary-face 'diary-face
   "Face name to use for diary entries.")
 (defface diary-face
@@ -217,13 +216,11 @@
   "Face for highlighting diary entries."
   :group 'diary)
 
-(add-to-list 'facemenu-unlisted-faces 'calendar-today-face)
 (defface calendar-today-face
   '((t (:underline t)))
   "Face for indicating today's date."
   :group 'diary)
 
-(add-to-list 'facemenu-unlisted-faces 'holiday-face)
 (defface holiday-face
   '((((class color) (background light))
      :background "pink")
@@ -234,6 +231,12 @@
   "Face for indicating dates that have holidays."
   :group 'diary)
 
+(eval-after-load "facemenu"
+  '(progn
+     (add-to-list 'facemenu-unlisted-faces 'diary-face)
+     (add-to-list 'facemenu-unlisted-faces 'calendar-today-face)
+     (add-to-list 'facemenu-unlisted-faces 'holiday-face)))
+
 (defcustom diary-entry-marker
   (if (not (display-color-p))
       "+"
@@ -2476,19 +2479,16 @@
   "Array of capitalized strings giving, in order, the month names.")
 
 (defvar calendar-font-lock-keywords
-  (list
-   '("[A-Z][a-z]+ -?[0-9]+" . font-lock-function-name-face) ; month and year
-   (cons
-    (concat (substring (aref calendar-day-name-array 6) 0 2)
-	    "\\|"
-	    (substring (aref calendar-day-name-array 0) 0 2))
-    'font-lock-comment-face)
-   (cons
-    (mapconcat 'identity
-	       (mapcar '(lambda (x) (substring x 0 2))
-		       calendar-day-name-array)
-	       "\\|")
-    'font-lock-reference-face))
+  `((,(concat (regexp-opt (mapcar 'identity calendar-month-name-array) t)
+	      " -?[0-9]+")
+     . font-lock-function-name-face) ; month and year
+    (,(regexp-opt
+       (list (substring (aref calendar-day-name-array 6) 0 2)
+	     (substring (aref calendar-day-name-array 0) 0 2)))
+     ;; Saturdays and Sundays are hilited differently.
+     . font-lock-comment-face)
+    (,(regexp-opt (mapcar (lambda (x) (substring x 0 2)) calendar-day-name-array))
+     . font-lock-reference-face))
   "Default keywords to highlight in Calendar mode.")