[Emacs-diffs] /srv/bzr/emacs/trunk r99672: * calendar/cal-french.el: Convert to utf-8.

[Glenn Morris]

------------------------------------------------------------
revno: 99672
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2010-03-17 22:25:13 -0700
message:
  * calendar/cal-french.el: Convert to utf-8.
modified:
  lisp/ChangeLog
  lisp/calendar/cal-french.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-03-18 04:54:51 +0000
+++ b/lisp/ChangeLog    2010-03-18 05:25:13 +0000
@@ -1,5 +1,7 @@
 2010-03-18  Glenn Morris  <address@hidden>
 
+       * calendar/cal-french.el: Convert to utf-8.
+
        * files.el (interpreter-mode-alist): Use emacs-lisp-mode for
        Emacs scripts.
 

=== modified file 'lisp/calendar/cal-french.el'
--- a/lisp/calendar/cal-french.el       2010-01-13 08:35:10 +0000
+++ b/lisp/calendar/cal-french.el       2010-03-18 05:25:13 +0000
@@ -1,7 +1,8 @@
 ;;; cal-french.el --- calendar functions for the French Revolutionary calendar
 
 ;; Copyright (C) 1988, 1989, 1992, 1994, 1995, 1997, 2001, 2002, 2003,
-;;   2004, 2005, 2006, 2007, 2008, 2009, 2010  Free Software Foundation, Inc.
+;;   2004, 2005, 2006, 2007, 2008, 2009, 2010
+;;   Free Software Foundation, Inc.
 
 ;; Author: Edward M. Reingold <address@hidden>
 ;; Maintainer: Glenn Morris <address@hidden>
@@ -40,8 +41,8 @@
   "Array of month names in the French calendar.")
 
 (defconst calendar-french-multibyte-month-name-array
-  ["Vend?miaire" "Brumaire" "Frimaire" "Niv?se" "Pluvi?se" "Vent?se"
-   "Germinal" "Flor?al" "Prairial" "Messidor" "Thermidor" "Fructidor"]
+  ["Vend??miaire" "Brumaire" "Frimaire" "Niv??se" "Pluvi??se" "Vent??se"
+   "Germinal" "Flor??al" "Prairial" "Messidor" "Thermidor" "Fructidor"]
   "Array of multibyte month names in the French calendar.")
 
 (defconst calendar-french-day-name-array
@@ -55,8 +56,8 @@
   "Array of special day names in the French calendar.")
 
 (defconst calendar-french-multibyte-special-days-array
-  ["de la Vertu" "du G?nie" "du Travail" "de la Raison" "des R?compenses"
-   "de la R?volution"]
+  ["de la Vertu" "du G??nie" "du Travail" "de la Raison" "des R??compenses"
+   "de la R??volution"]
   "Array of multibyte special day names in the French calendar.")
 
 (defun calendar-french-accents-p ()
@@ -174,13 +175,13 @@
     (cond
      ((< y 1) "")
      ((= m 13) (format (if (calendar-french-accents-p)
-                           "Jour %s de l'Ann?e %d de la R?volution"
+                           "Jour %s de l'Ann??e %d de la R??volution"
                          "Jour %s de l'Anne'e %d de la Re'volution")
                        (aref (calendar-french-special-days-array) (1- d))
                        y))
      (t (format
          (if (calendar-french-accents-p)
-             "%d %s an %d de la R?volution"
+             "%d %s an %d de la R??volution"
            "%d %s an %d de la Re'volution")
          d
          (aref (calendar-french-month-name-array) (1- m))
@@ -208,7 +209,7 @@
           (year (progn
                   (calendar-read
                    (if (calendar-french-accents-p)
-                       "Ann?e de la R?volution (>0): "
+                       "Ann??e de la R??volution (>0): "
                      "Anne'e de la Re'volution (>0): ")
                    (lambda (x) (> x 0))
                    (number-to-string
@@ -264,5 +265,9 @@
 
 (provide 'cal-french)
 
+;; Local Variables:
+;; coding: utf-8
+;; End:
+
 ;; arch-tag: 7e8045a3-8609-46b5-9cde-cf40ce541cf9
 ;;; cal-french.el ends here