Commit 1a355d09 authored by Glenn Morris's avatar Glenn Morris

* calendar/cal-french.el: Convert to utf-8.

parent f8388570
2010-03-18 Glenn Morris <rgm@gnu.org>
* calendar/cal-french.el: Convert to utf-8.
* files.el (interpreter-mode-alist): Use emacs-lisp-mode for
Emacs scripts.
......
;;; 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 <reingold@cs.uiuc.edu>
;; Maintainer: Glenn Morris <rgm@gnu.org>
......@@ -40,8 +41,8 @@
"Array of month names in the French calendar.")
(defconst calendar-french-multibyte-month-name-array
["Vendmiaire" "Brumaire" "Frimaire" "Nivse" "Pluvise" "Ventse"
"Germinal" "Floral" "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 Gnie" "du Travail" "de la Raison" "des Rcompenses"
"de la Rvolution"]
["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 @@ Defaults to today's date if DATE is not given."
(cond
((< y 1) "")
((= m 13) (format (if (calendar-french-accents-p)
"Jour %s de l'Anne %d de la Rvolution"
"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 Rvolution"
"%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 @@ Echo French Revolutionary date unless NOECHO is non-nil."
(year (progn
(calendar-read
(if (calendar-french-accents-p)
"Anne de la Rvolution (>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 @@ Echo French Revolutionary date unless NOECHO is non-nil."
(provide 'cal-french)
;; Local Variables:
;; coding: utf-8
;; End:
;; arch-tag: 7e8045a3-8609-46b5-9cde-cf40ce541cf9
;;; cal-french.el ends here
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment