Mercurial > emacs

comparison lisp/calendar/cal-menu.el @ 82149:2914fd1abc3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cal-menu-scroll-menu, cal-menu-global-mouse-menu): Use new names.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 27 Jul 2007 06:15:40 +0000
parents b98604865ea0
children 2cd425573329
comparison
equal deleted inserted replaced
82148:d979cb10446a 82149:2914fd1abc3e
138 ["Previous Round" calendar-previous-calendar-round-date]) 138 ["Previous Round" calendar-previous-calendar-round-date])
139 ["French Date" calendar-goto-french-date])) 139 ["French Date" calendar-goto-french-date]))
140 140
141 (defconst cal-menu-scroll-menu 141 (defconst cal-menu-scroll-menu
142 '("Scroll" 142 '("Scroll"
143 ["Forward 1 Month" scroll-calendar-left] 143 ["Forward 1 Month" calendar-scroll-left]
144 ["Forward 3 Months" scroll-calendar-left-three-months] 144 ["Forward 3 Months" calendar-scroll-left-three-months]
145 ["Forward 1 Year" "4\C-v"] 145 ["Forward 1 Year" "4\C-v"]
146 ["Backward 1 Month" scroll-calendar-right] 146 ["Backward 1 Month" calendar-scroll-right]
147 ["Backward 3 Months" scroll-calendar-right-three-months] 147 ["Backward 3 Months" calendar-scroll-right-three-months]
148 ["Backward 1 Year" "4\ev"])) 148 ["Backward 1 Year" "4\ev"]))
149 149
150 (defun cal-menu-x-popup-menu (position menu) 150 (defun cal-menu-x-popup-menu (position menu)
151 "Like `x-popup-menu', but prints an error message if popup menus are 151 "Like `x-popup-menu', but prints an error message if popup menus are
152 not available." 152 not available."
457 menu (calendar-date-string (calendar-event-to-date t) t nil))) 457 menu (calendar-date-string (calendar-event-to-date t) t nil)))
458 458
459 (easy-menu-define cal-menu-global-mouse-menu nil 459 (easy-menu-define cal-menu-global-mouse-menu nil
460 "Menu bound to a mouse event, not specific to the mouse-click location." 460 "Menu bound to a mouse event, not specific to the mouse-click location."
461 '("Calendar" 461 '("Calendar"
462 ["Scroll forward" scroll-calendar-left-three-months] 462 ["Scroll forward" calendar-scroll-left-three-months]
463 ["Scroll backward" scroll-calendar-right-three-months] 463 ["Scroll backward" calendar-scroll-right-three-months]
464 ["Mark diary entries" mark-diary-entries] 464 ["Mark diary entries" mark-diary-entries]
465 ["List holidays" list-calendar-holidays] 465 ["List holidays" list-calendar-holidays]
466 ["Mark holidays" mark-calendar-holidays] 466 ["Mark holidays" mark-calendar-holidays]
467 ["Unmark" calendar-unmark] 467 ["Unmark" calendar-unmark]
468 ["Lunar phases" calendar-phases-of-moon] 468 ["Lunar phases" calendar-phases-of-moon]