Mercurial > emacs

comparison lisp/calendar/cal-menu.el @ 7886:ca955be67b4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-mouse-2-date-menu): Put moon phase here. (calendar-mode-map): Delete from here.
author Richard M. Stallman <rms@gnu.org>
date Tue, 14 Jun 1994 19:50:14 +0000
parents 44a712d8ba03
children a5e6f7045bc0
comparison
equal deleted inserted replaced
7885:bc6406a90796 7886:ca955be67b4f
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 '("Moon" . calendar-phases-of-moon))
47 44
48 (define-key calendar-mode-map [menu-bar diary] 45 (define-key calendar-mode-map [menu-bar diary]
49 (cons "Diary" (make-sparse-keymap "Diary"))) 46 (cons "Diary" (make-sparse-keymap "Diary")))
50 47
51 (define-key calendar-mode-map [menu-bar diary heb] 48 (define-key calendar-mode-map [menu-bar diary heb]
278 (x-popup-menu 275 (x-popup-menu
279 event 276 event
280 (list "Menu" 277 (list "Menu"
281 (list 278 (list
282 (calendar-date-string date t t) 279 (calendar-date-string date t t)
280 '("Moon phase" . calendar-phases-of-moon)
283 '("Diary entries" . calendar-mouse-view-diary-entries) 281 '("Diary entries" . calendar-mouse-view-diary-entries)
284 '("Holidays" . calendar-mouse-holidays) 282 '("Holidays" . calendar-mouse-holidays)
285 '("Mark date" . calendar-mouse-set-mark) 283 '("Mark date" . calendar-mouse-set-mark)
286 '("Sunrise/sunset" . calendar-mouse-sunrise/sunset) 284 '("Sunrise/sunset" . calendar-mouse-sunrise/sunset)
287 '("Other calendars" . calendar-mouse-print-dates)))))) 285 '("Other calendars" . calendar-mouse-print-dates))))))