Mercurial > emacs
changeset 82149:2914fd1abc3e
(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 | d979cb10446a |
children | 0d322d300115 |
files | lisp/ChangeLog lisp/calendar/cal-menu.el |
diffstat | 2 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jul 27 06:13:26 2007 +0000 +++ b/lisp/ChangeLog Fri Jul 27 06:15:40 2007 +0000 @@ -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.
--- a/lisp/calendar/cal-menu.el Fri Jul 27 06:13:26 2007 +0000 +++ b/lisp/calendar/cal-menu.el Fri Jul 27 06:15:40 2007 +0000 @@ -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 @@ (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]