From d7af270b439a9daa80f8006f580a4fd2133e5965 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 8 Mar 2008 04:26:44 +0000 Subject: [PATCH] Comment. --- lisp/calendar/cal-china.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/calendar/cal-china.el b/lisp/calendar/cal-china.el index 1a2f2210f38..f11a692b108 100644 --- a/lisp/calendar/cal-china.el +++ b/lisp/calendar/cal-china.el @@ -45,7 +45,6 @@ ;;; Code: -(defvar date) (defvar displayed-month) (defvar displayed-year) @@ -502,6 +501,9 @@ Echo Chinese date unless NOECHO is t." (make-chinese-month-assoc-list (cdr l)))) (list (cons (int-to-string (car l)) (car l)))))) +(defvar date) + +;; To be called from list-sexp-diary-entries, where DATE is bound. (defun diary-chinese-date () "Chinese calendar equivalent of date diary entry." (format "Chinese date: %s" (calendar-chinese-date-string date))) -- 2.11.4.GIT