mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(calendar-mode-map): Change moon menu bar to pop up a menu.

Browse Source
This commit is contained in:
Edward M. Reingold 1994-06-14 20:06:55 +00:00
parent d95f5c9740
commit 48b29ac004
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/calendar/cal-menu.el
View File

@ -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)