[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v |
Date: |
Fri, 14 Mar 2008 03:14:59 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/03/14 03:14:59
Index: cal-french.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-french.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- cal-french.el 13 Mar 2008 06:20:18 -0000 1.42
+++ cal-french.el 14 Mar 2008 03:14:59 -0000 1.43
@@ -41,36 +41,41 @@
(require 'calendar)
-(defun french-calendar-accents ()
- "True if diacritical marks are available."
- (and (or window-system
- (terminal-coding-system))
- (or enable-multibyte-characters
- (and (char-table-p standard-display-table)
- (equal (aref standard-display-table 161) [161])))))
-
(defconst french-calendar-epoch (calendar-absolute-from-gregorian '(9 22 1792))
- "Absolute date of start of French Revolutionary calendar = September 22,
1792.")
+ "Absolute date of start of French Revolutionary calendar = Sept 22, 1792.")
(defconst french-calendar-month-name-array
["Vende'miaire" "Brumaire" "Frimaire" "Nivo^se" "Pluvio^se" "Vento^se"
- "Germinal" "Flore'al" "Prairial" "Messidor" "Thermidor" "Fructidor"])
+ "Germinal" "Flore'al" "Prairial" "Messidor" "Thermidor" "Fructidor"]
+ "Array of month names in the French calendar.")
(defconst french-calendar-multibyte-month-name-array
["Vendémiaire" "Brumaire" "Frimaire" "Nivôse" "Pluviôse" "Ventôse"
- "Germinal" "Floréal" "Prairial" "Messidor" "Thermidor" "Fructidor"])
+ "Germinal" "Floréal" "Prairial" "Messidor" "Thermidor" "Fructidor"]
+ "Array of multibyte month names in the French calendar.")
(defconst french-calendar-day-name-array
["Primidi" "Duodi" "Tridi" "Quartidi" "Quintidi" "Sextidi" "Septidi"
- "Octidi" "Nonidi" "Decadi"])
+ "Octidi" "Nonidi" "Decadi"]
+ "Array of day names in the French calendar.")
+
+(defconst french-calendar-special-days-array
+ ["de la Vertu" "du Ge'nie" "du Travail" "de la Raison" "des Re'compenses"
+ "de la Re'volution"]
+ "Array of special day names in the French calendar.")
(defconst french-calendar-multibyte-special-days-array
["de la Vertu" "du Génie" "du Travail" "de la Raison" "des Récompenses"
- "de la Révolution"])
+ "de la Révolution"]
+ "Array of multibyte special day names in the French calendar.")
-(defconst french-calendar-special-days-array
- ["de la Vertu" "du Ge'nie" "du Travail" "de la Raison" "des Re'compenses"
- "de la Re'volution"])
+(defun french-calendar-accents ()
+ "True if diacritical marks are available."
+ (and (or window-system
+ (terminal-coding-system))
+ (or enable-multibyte-characters
+ (and (char-table-p standard-display-table)
+ (equal (aref standard-display-table 161) [161])))))
(defun french-calendar-month-name-array ()
"Return the array of month names, depending on whether accents are
available."
@@ -200,7 +205,7 @@
;;;###cal-autoload
(defun calendar-goto-french-date (date &optional noecho)
"Move cursor to French Revolutionary date DATE.
-Echo French Revolutionary date unless NOECHO is t."
+Echo French Revolutionary date unless NOECHO is non-nil."
(interactive
(let ((accents (french-calendar-accents))
(months (french-calendar-month-name-array))
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/08
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/08
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/14
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/31