From 48b29ac00488bfc37a42f6e1e111a7c690dc5026 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Tue, 14 Jun 1994 20:06:55 +0000 Subject: [PATCH] (calendar-mode-map): Change moon menu bar to pop up a menu. --- lisp/calendar/cal-menu.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index af2b9fe4e7d..f3ff24765f2 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -42,6 +42,12 @@ (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] + (cons "Moon" (make-sparse-keymap "Moon"))) + +(define-key calendar-mode-map [menu-bar moon moon] + '("Lunar phases" . calendar-phases-of-moon)) + (define-key calendar-mode-map [menu-bar diary] (cons "Diary" (make-sparse-keymap "Diary"))) @@ -277,7 +283,6 @@ 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) -- 2.39.5