# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1204950295 0
# Node ID 716eff3e723238a6c7ba99d1dd7d068805b37193
# Parent  297952467e3481ddec6004b60af9474bc178c739
Comment.

diff -r 297952467e34 -r 716eff3e7232 lisp/calendar/cal-french.el
--- a/lisp/calendar/cal-french.el	Sat Mar 08 04:24:24 2008 +0000
+++ b/lisp/calendar/cal-french.el	Sat Mar 08 04:24:55 2008 +0000
@@ -39,8 +39,6 @@
 
 ;;; Code:
 
-(defvar date)
-
 (require 'calendar)
 
 (defun french-calendar-accents ()
@@ -246,6 +244,9 @@
                        (calendar-absolute-from-french date)))
   (or noecho (calendar-print-french-date)))
 
+(defvar date)
+
+;; To be called from list-sexp-diary-entries, where DATE is bound.
 (defun diary-french-date ()
   "French calendar equivalent of date diary entry."
   (let ((f (calendar-french-date-string date)))