diff options
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1995-10-24 15:50:05 +0000 |
|---|---|---|
| committer | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1995-10-24 15:50:05 +0000 |
| commit | f52bea1c023ac52f5da1f65020d80f5fc00cc5e8 (patch) | |
| tree | 4f249ea82f3144b3a253c91ccd76965f61af1692 /lisp/calendar/cal-menu.el | |
| parent | e34b40b44f1942195be8271715721eb50ca4cb9f (diff) | |
| download | emacs-f52bea1c023ac52f5da1f65020d80f5fc00cc5e8.tar.gz | |
Fix menu for Chinese calendar.
Diffstat (limited to 'lisp/calendar/cal-menu.el')
| -rw-r--r-- | lisp/calendar/cal-menu.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 4b00d3e9bd3..80bda84bae4 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -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))))) |