Mercurial > emacs
comparison lisp/calendar/cal-menu.el @ 7887:a5e6f7045bc0
(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)))))) |