Mercurial > emacs
comparison lisp/calendar/cal-menu.el @ 13285:7ccba52e1e3e
Fix menu for Chinese calendar.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Tue, 24 Oct 1995 15:50:05 +0000 |
| parents | 7e90c5fce35f |
| children | a04244ec8530 |
comparison
equal
deleted
inserted
replaced
| 13284:7b2bfa585697 | 13285:7ccba52e1e3e |
|---|---|
| 394 (list (format "Hebrew date (before sunset): %s" | 394 (list (format "Hebrew date (before sunset): %s" |
| 395 (calendar-hebrew-date-string date)))) | 395 (calendar-hebrew-date-string date)))) |
| 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))))) |
| 408 (let ((e (calendar-ethiopic-date-string date))) | 407 (let ((e (calendar-ethiopic-date-string date))) |
| 409 (if (not (string-equal e "")) | 408 (if (not (string-equal e "")) |