From 92da8c782b8863136fa56c45ae84a610526e54c0 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Fri, 22 Sep 1995 19:36:26 +0000 Subject: [PATCH] Fix display of Chinese date. --- lisp/calendar/cal-menu.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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." -- 2.39.2