Fontification of calendar breaks localization

[Romain FRANCOISE <romain@orebokech.com>]

[-- Attachment #1: Type: text/plain, Size: 1385 bytes --]

Hi,

recently a patch by Alan Shutko which allows fontification of the
Calendar and Diary buffers was applied to the trunk.  It is a very nice
feature, however it breaks when you're using a "localized" Calendar;
that is if you have changed the month and day names to reflect your
language's.

For instance in my case (in French), I have:

(setq calendar-day-name-array
      ["Dimanche" "Lundi" "Mardi" "Mercredi" "Jeudi" "Vendredi" "Samedi"]
      calendar-month-name-array
      ["Janvier" "Février" "Mars" "Avril" "Mai" "Juin" "Juillet"
       "Août" "Septembre" "Octobre" "Novembre" "Décembre"])

so that the Diary and Calendar are displayed in French.

Alan's patch uses a regular expression to recognize month names and
fontify them, this regular expression does not match with accentuated
characters, so some month names get fontified and others don't.

I have written a quick fix that builds the regular expression using the
names defined in `calendar-month-name-array' so that it always
accurately matches month names.  It is in the attached patch (against
the current CVS).

What do you think?

        Romain.

-- 
Romain FRANCOISE <romain@orebokech.com> | You know that old saying,
it's a miracle -- http://orebokech.com/ | that you always hurt the ones
                                        | you love? Well it works both
                                        | ways.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: fontification fix --]
[-- Type: text/x-patch, Size: 958 bytes --]

Index: lisp/calendar/calendar.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calendar/calendar.el,v
retrieving revision 1.142
diff -c -r1.142 calendar.el
*** lisp/calendar/calendar.el	16 Nov 2002 19:18:57 -0000	1.142
--- lisp/calendar/calendar.el	26 Nov 2002 15:44:13 -0000
***************
*** 2477,2483 ****
  
  (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)
  	    "\\|"
--- 2477,2488 ----
  
  (defvar calendar-font-lock-keywords
    (list
!    (cons 
!     (mapconcat 'identity 
!                (mapcar '(lambda (x) (concat x " -?[0-9]+"))
!                        calendar-month-name-array)
!                "\\|")
!     'font-lock-function-name-face)
     (cons
      (concat (substring (aref calendar-day-name-array 6) 0 2)
  	    "\\|"