Commit 9081fdbc authored by Glenn Morris's avatar Glenn Morris

Comment.

parent 0d1bb2ff
...@@ -39,8 +39,6 @@ ...@@ -39,8 +39,6 @@
;;; Code: ;;; Code:
(defvar date)
(require 'calendar) (require 'calendar)
(defun french-calendar-accents () (defun french-calendar-accents ()
...@@ -246,6 +244,9 @@ Echo French Revolutionary date unless NOECHO is t." ...@@ -246,6 +244,9 @@ Echo French Revolutionary date unless NOECHO is t."
(calendar-absolute-from-french date))) (calendar-absolute-from-french date)))
(or noecho (calendar-print-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 () (defun diary-french-date ()
"French calendar equivalent of date diary entry." "French calendar equivalent of date diary entry."
(let ((f (calendar-french-date-string date))) (let ((f (calendar-french-date-string date)))
......
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