Mercurial > emacs

changeset 48683:ead34b521994

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(facemenu-unlisted-faces): Only update after facemenu was loaded. (calendar-font-lock-keywords): Accept non-ASCII month names. Use regexp-opt.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 05 Dec 2002 18:42:33 +0000
parents a74dd42cf01d
children 9f1f766e9675
files lisp/calendar/calendar.el
diffstat 1 files changed, 16 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- 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.")