From: Edward M. Reingold <reingold@emr.cs.iit.edu>
Date: Fri, 22 Sep 1995 19:36:26 +0000 (+0000)
Subject: Fix display of Chinese date.
X-Git-Tag: emacs-19.34~2797
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92da8c782b8863136fa56c45ae84a610526e54c0;p=emacs.git

Fix display of Chinese date.
---

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."