diff options
| author | Edward M. Reingold | 1995-10-24 15:50:05 +0000 |
|---|---|---|
| committer | Edward M. Reingold | 1995-10-24 15:50:05 +0000 |
| commit | 786272966f42ce9df91febbdb16bd1c3dc4e5c96 (patch) | |
| tree | 71b24351330d23b8b5bbca64731a1f3e1f51cf88 | |
| parent | 0c0efc3ef57cc7d7a7d3d830b5490cd5b3f1a47d (diff) | |
| download | emacs-786272966f42ce9df91febbdb16bd1c3dc4e5c96.tar.gz emacs-786272966f42ce9df91febbdb16bd1c3dc4e5c96.zip | |
Fix menu for Chinese calendar.
| -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." | |||
| 396 | (let ((i (calendar-islamic-date-string date))) | 396 | (let ((i (calendar-islamic-date-string date))) |
| 397 | (if (not (string-equal i "")) | 397 | (if (not (string-equal i "")) |
| 398 | (list (list (format "Islamic date (before sunset): %s" i))))) | 398 | (list (list (format "Islamic date (before sunset): %s" i))))) |
| 399 | ; too slow to leave this in all the time! | 399 | (list |
| 400 | ; (list | 400 | (list (format "Chinese date: %s" |
| 401 | ; (list (format "Chinese date: %s" (calendar-chinese-date-string date)))) | 401 | (calendar-chinese-date-string date)))) |
| 402 | ; so instead, | 402 | ; (list '("Chinese date (select to echo Chinese date)" |
| 403 | (list '("Chinese date (select to echo Chinese date)" | 403 | ; . calendar-mouse-chinese-date)) |
| 404 | . calendar-mouse-chinese-date)) | ||
| 405 | (let ((c (calendar-coptic-date-string date))) | 404 | (let ((c (calendar-coptic-date-string date))) |
| 406 | (if (not (string-equal c "")) | 405 | (if (not (string-equal c "")) |
| 407 | (list (list (format "Coptic date: %s" c))))) | 406 | (list (list (format "Coptic date: %s" c))))) |