From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 14 Jun 1994 19:50:14 +0000 (+0000)
Subject: (calendar-mouse-2-date-menu): Put moon phase here.
X-Git-Tag: emacs-19.34~7967
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d95f5c9740e4f78689ca9fa59872d644ff18d1f2;p=emacs.git

(calendar-mouse-2-date-menu): Put moon phase here.
(calendar-mode-map): Delete from here.
---

diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index 73675ea7fb3..af2b9fe4e7d 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -41,9 +41,6 @@
 
 (defvar calendar-mouse-3-map (make-sparse-keymap "Calendar"))
 (define-key calendar-mode-map [down-mouse-3] calendar-mouse-3-map)
-  
-(define-key calendar-mode-map [menu-bar moon]
-  '("Moon" . calendar-phases-of-moon))
 
 (define-key calendar-mode-map [menu-bar diary]
   (cons "Diary" (make-sparse-keymap "Diary")))
@@ -280,6 +277,7 @@ ERROR is t, otherwise just returns nil."
            (list "Menu"
                  (list
                   (calendar-date-string date t t)
+		  '("Moon phase" . calendar-phases-of-moon)
                   '("Diary entries" . calendar-mouse-view-diary-entries)
                   '("Holidays" . calendar-mouse-holidays)
                   '("Mark date" . calendar-mouse-set-mark)