Mercurial > emacs

comparison lisp/calendar/cal-menu.el @ 7887:a5e6f7045bc0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-mode-map): Change moon menu bar to pop up a menu.
author Edward M. Reingold <reingold@emr.cs.iit.edu>
date Tue, 14 Jun 1994 20:06:55 +0000
parents ca955be67b4f
children 9c9cbb121c37
comparison
equal deleted inserted replaced
7886:ca955be67b4f 7887:a5e6f7045bc0
39 (define-key calendar-mode-map [down-mouse-2] 'calendar-mouse-2-date-menu) 39 (define-key calendar-mode-map [down-mouse-2] 'calendar-mouse-2-date-menu)
40 (define-key calendar-mode-map [mouse-2] 'ignore) 40 (define-key calendar-mode-map [mouse-2] 'ignore)
41 41
42 (defvar calendar-mouse-3-map (make-sparse-keymap "Calendar")) 42 (defvar calendar-mouse-3-map (make-sparse-keymap "Calendar"))
43 (define-key calendar-mode-map [down-mouse-3] calendar-mouse-3-map) 43 (define-key calendar-mode-map [down-mouse-3] calendar-mouse-3-map)
44
45 (define-key calendar-mode-map [menu-bar moon]
46 (cons "Moon" (make-sparse-keymap "Moon")))
47
48 (define-key calendar-mode-map [menu-bar moon moon]
49 '("Lunar phases" . calendar-phases-of-moon))
44 50
45 (define-key calendar-mode-map [menu-bar diary] 51 (define-key calendar-mode-map [menu-bar diary]
46 (cons "Diary" (make-sparse-keymap "Diary"))) 52 (cons "Diary" (make-sparse-keymap "Diary")))
47 53
48 (define-key calendar-mode-map [menu-bar diary heb] 54 (define-key calendar-mode-map [menu-bar diary heb]
275 (x-popup-menu 281 (x-popup-menu
276 event 282 event
277 (list "Menu" 283 (list "Menu"
278 (list 284 (list
279 (calendar-date-string date t t) 285 (calendar-date-string date t t)
280 '("Moon phase" . calendar-phases-of-moon)
281 '("Diary entries" . calendar-mouse-view-diary-entries) 286 '("Diary entries" . calendar-mouse-view-diary-entries)
282 '("Holidays" . calendar-mouse-holidays) 287 '("Holidays" . calendar-mouse-holidays)
283 '("Mark date" . calendar-mouse-set-mark) 288 '("Mark date" . calendar-mouse-set-mark)
284 '("Sunrise/sunset" . calendar-mouse-sunrise/sunset) 289 '("Sunrise/sunset" . calendar-mouse-sunrise/sunset)
285 '("Other calendars" . calendar-mouse-print-dates)))))) 290 '("Other calendars" . calendar-mouse-print-dates))))))