mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

Comment.

Browse Source
This commit is contained in:
Glenn Morris 2008-03-08 04:26:44 +00:00
parent 6fd6d1d81f
commit d7af270b43
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/calendar/cal-china.el
View File

@ -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)))