Commit cca1dde0 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(cal-menu-scroll-menu, cal-menu-global-mouse-menu): Use new names.

parent ab42e29d
2007-07-27 Stefan Monnier <monnier@iro.umontreal.ca> 2007-07-27 Stefan Monnier <monnier@iro.umontreal.ca>
* calendar/cal-menu.el (cal-menu-scroll-menu)
(cal-menu-global-mouse-menu): Use new names.
* calendar/cal-move.el (calendar-scroll-left, calendar-scroll-right) * calendar/cal-move.el (calendar-scroll-left, calendar-scroll-right)
(calendar-scroll-left-three-months) (calendar-scroll-left-three-months)
(calendar-scroll-right-three-months): Clean up namespace. (calendar-scroll-right-three-months): Clean up namespace.
......
...@@ -140,11 +140,11 @@ ...@@ -140,11 +140,11 @@
(defconst cal-menu-scroll-menu (defconst cal-menu-scroll-menu
'("Scroll" '("Scroll"
["Forward 1 Month" scroll-calendar-left] ["Forward 1 Month" calendar-scroll-left]
["Forward 3 Months" scroll-calendar-left-three-months] ["Forward 3 Months" calendar-scroll-left-three-months]
["Forward 1 Year" "4\C-v"] ["Forward 1 Year" "4\C-v"]
["Backward 1 Month" scroll-calendar-right] ["Backward 1 Month" calendar-scroll-right]
["Backward 3 Months" scroll-calendar-right-three-months] ["Backward 3 Months" calendar-scroll-right-three-months]
["Backward 1 Year" "4\ev"])) ["Backward 1 Year" "4\ev"]))
(defun cal-menu-x-popup-menu (position menu) (defun cal-menu-x-popup-menu (position menu)
...@@ -459,8 +459,8 @@ The output is in landscape format, one month to a page." ...@@ -459,8 +459,8 @@ The output is in landscape format, one month to a page."
(easy-menu-define cal-menu-global-mouse-menu nil (easy-menu-define cal-menu-global-mouse-menu nil
"Menu bound to a mouse event, not specific to the mouse-click location." "Menu bound to a mouse event, not specific to the mouse-click location."
'("Calendar" '("Calendar"
["Scroll forward" scroll-calendar-left-three-months] ["Scroll forward" calendar-scroll-left-three-months]
["Scroll backward" scroll-calendar-right-three-months] ["Scroll backward" calendar-scroll-right-three-months]
["Mark diary entries" mark-diary-entries] ["Mark diary entries" mark-diary-entries]
["List holidays" list-calendar-holidays] ["List holidays" list-calendar-holidays]
["Mark holidays" mark-calendar-holidays] ["Mark holidays" mark-calendar-holidays]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment