diff options
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1995-09-22 19:36:26 +0000 |
|---|---|---|
| committer | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1995-09-22 19:36:26 +0000 |
| commit | 61f48f76fc9bba134c18552f47fe2952b6f8718e (patch) | |
| tree | c4f8f4ffe65381a0b422ce8a317b3c5706f1e554 | |
| parent | bae945113333aadcf5adaedff57777dac26dc62f (diff) | |
| download | emacs-61f48f76fc9bba134c18552f47fe2952b6f8718e.tar.gz | |
Fix display of Chinese date.
| -rw-r--r-- | lisp/calendar/cal-menu.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index ddf00675cda..7a60d558d69 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -300,7 +300,7 @@ ERROR is t, otherwise just returns nil." ; (list (format "Chinese date: %s" (calendar-chinese-date-string date)))) ; so instead, (list '("Chinese date (select to echo Chinese date)" - . calendar-print-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))))) @@ -316,6 +316,12 @@ ERROR is t, otherwise just returns nil." (calendar-mayan-date-string date))))))))) (and selection (call-interactively selection)))) +(defun calendar-mouse-chinese-date () + "Show Chinese equivalent for mouse-selected date." + (interactive) + (save-excursion + (calendar-goto-date (calendar-event-to-date)) + (calendar-print-chinese-date))) (defun calendar-mouse-2-date-menu (event) "Pop up menu for Mouse-2 for selected date in the calendar window." |