Mercurial > emacs

comparison lisp/calendar/cal-menu.el @ 99751:5482506bbfd1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cal-menu-scroll-menu): Add bindings for week forward/backward.
author Dan Nicolaescu <dann@ics.uci.edu>
date Thu, 20 Nov 2008 18:14:10 +0000
parents 6e551caf98f6
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
99750:f5057049058b 99751:5482506bbfd1
143 ["French Date" calendar-french-goto-date]) 143 ["French Date" calendar-french-goto-date])
144 "Key map for \"Goto\" menu in the calendar.") 144 "Key map for \"Goto\" menu in the calendar.")
145 145
146 (defconst cal-menu-scroll-menu 146 (defconst cal-menu-scroll-menu
147 '("Scroll" 147 '("Scroll"
148 ["Forward 1 Week" calendar-forward-week]
148 ["Forward 1 Month" calendar-scroll-left] 149 ["Forward 1 Month" calendar-scroll-left]
149 ["Forward 3 Months" calendar-scroll-left-three-months] 150 ["Forward 3 Months" calendar-scroll-left-three-months]
150 ["Forward 1 Year" (calendar-scroll-left 12) :keys "4 C-v"] 151 ["Forward 1 Year" (calendar-scroll-left 12) :keys "4 C-v"]
152 ["Backward 1 Week" calendar-backward-week]
151 ["Backward 1 Month" calendar-scroll-right] 153 ["Backward 1 Month" calendar-scroll-right]
152 ["Backward 3 Months" calendar-scroll-right-three-months] 154 ["Backward 3 Months" calendar-scroll-right-three-months]
153 ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"]) 155 ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"])
154 "Key map for \"Scroll\" menu in the calendar.") 156 "Key map for \"Scroll\" menu in the calendar.")
155 157