From xemacs-m  Wed Apr 30 11:14:49 1997
Received: from canker.atype.com (jsc@canker.atype.com [137.103.200.167])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id LAA10390
	for <xemacs-beta@xemacs.org>; Wed, 30 Apr 1997 11:14:47 -0500 (CDT)
Received: (from jsc@localhost)
	by canker.atype.com (8.8.5/8.8.5) id MAA08937;
	Wed, 30 Apr 1997 12:13:52 -0400
Date: Wed, 30 Apr 1997 12:13:52 -0400
Message-Id: <199704301613.MAA08937@canker.atype.com>
From: "Jin S. Choi" <jsc@atype.com>
To: xemacs-beta@xemacs.org
Subject: patch for accents for French Revolutionary dates
Reply-to: jsc@atype.com
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Apr_30_12:13:52_1997-1"
Content-Transfer-Encoding: 7bit

--Multipart_Wed_Apr_30_12:13:52_1997-1
Content-Type: text/plain; charset=US-ASCII

I wanted to look up today's date in the French Revolutionary calendar
(Decade II, Primidi de Floral de l'Anne 205 de la Revolution), and
to my horror noticed that the accents were rendered using bogo-ASCII
accents (like "e'" for "").

Here is a patch to correct this:

--Multipart_Wed_Apr_30_12:13:52_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="calpatch"
Content-Transfer-Encoding: 8bit

*** cal-french.el	Wed Dec 18 17:42:34 1996
--- /usr/local/lib/xemacs-20.2-b3/lisp/calendar/cal-french.el	Wed Apr 30 12:07:43 1997
***************
*** 44,51 ****
  (require 'calendar)
  
  (defconst french-calendar-month-name-array
!   ["Vende'miaire" "Brumaire" "Frimaire" "Nivo^se" "Pluvio^se" "Vento^se"
!    "Germinal" "Flore'al" "Prairial" "Messidor" "Thermidor" "Fructidor"])
  
  (defconst french-calendar-day-name-array
    ["Primidi" "Duodi" "Tridi" "Quartidi" "Quintidi" "Sextidi" "Septidi"
--- 44,51 ----
  (require 'calendar)
  
  (defconst french-calendar-month-name-array
!   ["Vendmiaire" "Brumaire" "Frimaire" "Nivse" "Pluvise" "Ventse"
!    "Germinal" "Floral" "Prairial" "Messidor" "Thermidor" "Fructidor"])
  
  (defconst french-calendar-day-name-array
    ["Primidi" "Duodi" "Tridi" "Quartidi" "Quintidi" "Sextidi" "Septidi"
***************
*** 138,147 ****
           (d (extract-calendar-day french-date)))
      (cond
       ((< y 1) "")
!      ((= m 13) (format "Jour %s de l'Anne'e %d de la Revolution"
                         (aref french-calendar-special-days-array (1- d))
                         y))
!      (t (format "Decade %s, %s de %s de l'Anne'e %d de la Revolution"
                  (make-string (1+ (/ (1- d) 10)) ?I)
                  (aref french-calendar-day-name-array (% (1- d) 10))
                  (aref french-calendar-month-name-array (1- m))
--- 138,147 ----
           (d (extract-calendar-day french-date)))
      (cond
       ((< y 1) "")
!      ((= m 13) (format "Jour %s de l'Anne %d de la Revolution"
                         (aref french-calendar-special-days-array (1- d))
                         y))
!      (t (format "Decade %s, %s de %s de l'Anne %d de la Revolution"
                  (make-string (1+ (/ (1- d) 10)) ?I)
                  (aref french-calendar-day-name-array (% (1- d) 10))
                  (aref french-calendar-month-name-array (1- m))
***************
*** 160,166 ****
  Echo French Revolutionary date unless NOECHO is t."
    (interactive
     (let* ((year (calendar-read
!                  "Anne'e de la Revolution (>0): "
                   '(lambda (x) (> x 0))
                   (int-to-string
                    (extract-calendar-year
--- 160,166 ----
  Echo French Revolutionary date unless NOECHO is t."
    (interactive
     (let* ((year (calendar-read
!                  "Anne de la Revolution (>0): "
                   '(lambda (x) (> x 0))
                   (int-to-string
                    (extract-calendar-year
***************
*** 194,200 ****
            (decade (if (> month 12)
                        1
                      (calendar-read
!                      "De'cade (1-3): "
                       '(lambda (x) (memq x '(1 2 3))))))
            (day (if (> month 12)
                     (- month 12)
--- 194,200 ----
            (decade (if (> month 12)
                        1
                      (calendar-read
!                      "Dcade (1-3): "
                       '(lambda (x) (memq x '(1 2 3))))))
            (day (if (> month 12)
                     (- month 12)

--Multipart_Wed_Apr_30_12:13:52_1997-1
Content-Type: text/plain; charset=US-ASCII



--Multipart_Wed_Apr_30_12:13:52_1997-1--

