mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2007-07-27 06:15:40 +00:00
parent ab42e29d99
commit cca1dde04d
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

12
lisp/calendar/cal-menu.el
View File

@ -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]