diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/calendar/cal-menu.el | 12 |
2 files changed, 9 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a8e9dac3f5e..56c3294ea1c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 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-scroll-left-three-months) (calendar-scroll-right-three-months): Clean up namespace. diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 40cf158dcd6..5da73d26d4e 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -140,11 +140,11 @@ (defconst cal-menu-scroll-menu '("Scroll" - ["Forward 1 Month" scroll-calendar-left] - ["Forward 3 Months" scroll-calendar-left-three-months] + ["Forward 1 Month" calendar-scroll-left] + ["Forward 3 Months" calendar-scroll-left-three-months] ["Forward 1 Year" "4\C-v"] - ["Backward 1 Month" scroll-calendar-right] - ["Backward 3 Months" scroll-calendar-right-three-months] + ["Backward 1 Month" calendar-scroll-right] + ["Backward 3 Months" calendar-scroll-right-three-months] ["Backward 1 Year" "4\ev"])) (defun cal-menu-x-popup-menu (position menu) @@ -459,8 +459,8 @@ The output is in landscape format, one month to a page." (easy-menu-define cal-menu-global-mouse-menu nil "Menu bound to a mouse event, not specific to the mouse-click location." '("Calendar" - ["Scroll forward" scroll-calendar-left-three-months] - ["Scroll backward" scroll-calendar-right-three-months] + ["Scroll forward" calendar-scroll-left-three-months] + ["Scroll backward" calendar-scroll-right-three-months] ["Mark diary entries" mark-diary-entries] ["List holidays" list-calendar-holidays] ["Mark holidays" mark-calendar-holidays] |