Fix menu for Chinese calendar.

78627296 · Edward M. Reingold · 0c0efc3e · 78627296
Commit 78627296 authored Oct 24, 1995 by Edward M. Reingold
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 6 deletions

lisp/calendar/cal-menu.el lisp/calendar/cal-menu.el +5 -6

No files found.
--- 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)))))