Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix menu for Chinese calendar.

Browse source
This commit is contained in:
Edward M. Reingold 1995-10-24 15:50:05 +00:00
parent 0c0efc3ef5
commit 786272966f
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/calendar/cal-menu.el
View file

@ -396,12 +396,11 @@ The output is in landscape format, one month to a page."
(let ((i (calendar-islamic-date-string date)))
(if (not (string-equal i ""))
(list (list (format "Islamic date (before sunset): %s" i)))))
; too slow to leave this in all the time!
; (list
; (list (format "Chinese date: %s" (calendar-chinese-date-string date))))
; so instead,
(list '("Chinese date (select to echo Chinese date)"
. calendar-mouse-chinese-date))
(list
(list (format "Chinese date: %s"
(calendar-chinese-date-string date))))
; (list '("Chinese date (select to echo Chinese date)"
; . calendar-mouse-chinese-date))
(let ((c (calendar-coptic-date-string date)))
(if (not (string-equal c ""))
(list (list (format "Coptic date: %s" c)))))