Commit | Line | Data |
---|---|---|
3afbc435 | 1 | ;;; cal-french.el --- calendar functions for the French Revolutionary calendar |
7e1dae73 | 2 | |
dbfca9c4 | 3 | ;; Copyright (C) 1988, 1989, 1992, 1994, 1995, 1997, 2001, 2002, 2003, |
8b72699e | 4 | ;; 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
7e1dae73 JB |
5 | |
6 | ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> | |
dbfca9c4 | 7 | ;; Maintainer: Glenn Morris <rgm@gnu.org> |
e9571d2a ER |
8 | ;; Keywords: calendar |
9 | ;; Human-Keywords: French Revolutionary calendar, calendar, diary | |
7e1dae73 JB |
10 | |
11 | ;; This file is part of GNU Emacs. | |
12 | ||
59243403 RS |
13 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
14 | ;; it under the terms of the GNU General Public License as published by | |
075969b4 | 15 | ;; the Free Software Foundation; either version 3, or (at your option) |
59243403 RS |
16 | ;; any later version. |
17 | ||
7e1dae73 | 18 | ;; GNU Emacs is distributed in the hope that it will be useful, |
59243403 RS |
19 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
20 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 | ;; GNU General Public License for more details. | |
22 | ||
23 | ;; You should have received a copy of the GNU General Public License | |
b578f267 | 24 | ;; along with GNU Emacs; see the file COPYING. If not, write to the |
3a35cf56 LK |
25 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
26 | ;; Boston, MA 02110-1301, USA. | |
7e1dae73 JB |
27 | |
28 | ;;; Commentary: | |
29 | ||
eaf7038f | 30 | ;; See calendar.el. |
7e1dae73 | 31 | |
7e1dae73 JB |
32 | ;;; Code: |
33 | ||
34 | (require 'calendar) | |
35 | ||
d8e55af8 | 36 | (defconst calendar-french-epoch (calendar-absolute-from-gregorian '(9 22 1792)) |
5424a530 | 37 | "Absolute date of start of French Revolutionary calendar = Sept 22, 1792.") |
9fadf1a5 | 38 | |
d8e55af8 | 39 | (defconst calendar-french-month-name-array |
780249f8 | 40 | ["Vende'miaire" "Brumaire" "Frimaire" "Nivo^se" "Pluvio^se" "Vento^se" |
5424a530 GM |
41 | "Germinal" "Flore'al" "Prairial" "Messidor" "Thermidor" "Fructidor"] |
42 | "Array of month names in the French calendar.") | |
780249f8 | 43 | |
d8e55af8 | 44 | (defconst calendar-french-multibyte-month-name-array |
780249f8 | 45 |