From 0581e7e7d01052e79bde49605682daf08111f1f6 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 27 Jul 2007 06:28:39 +0000 Subject: [PATCH] (calendar-mode-map): Use new calendar-scroll-* names. (mouse-scroll-calendar-left, mouse-scroll-calendar-right): Remove. Use calendar-scroll-* directly instead. --- lisp/ChangeLog | 16 ++++++++++------ lisp/calendar/calendar.el | 46 ++++++++++++++-------------------------------- 2 files changed, 24 insertions(+), 38 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2a81d3da737..09b584a9497 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,11 +1,5 @@ 2007-07-27 Stefan Monnier - * calendar/cal-move.el (calendar-scroll-left, calendar-scroll-right): - Behave like mouse-scroll-calendar-* when used from the mouse. - - * 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. @@ -13,6 +7,16 @@ (scroll-calendar-left-three-months) (scroll-calendar-right-three-months): Add compatibility aliases. + * calendar/cal-move.el (calendar-scroll-left, calendar-scroll-right): + Behave like mouse-scroll-calendar-* when used from the mouse. + + * calendar/cal-menu.el (cal-menu-scroll-menu) + (cal-menu-global-mouse-menu): + * calendar/calendar.el (calendar-mode-map): + Use new calendar-scroll-* names. + (mouse-scroll-calendar-left, mouse-scroll-calendar-right): + Remove. Use calendar-scroll-* directly instead. + 2007-07-26 Stefan Monnier * emacs-lisp/advice.el (ad-interactive-p, ad-interactive-form): Remove. diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index c8c27703f8e..789a10d1f5e 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1493,19 +1493,19 @@ return negative results." "Move the cursor backward ARG years." t) -(autoload 'scroll-calendar-left "cal-move" +(autoload 'calendar-scroll-left "cal-move" "Scroll the displayed calendar left by ARG months." t) -(autoload 'scroll-calendar-right "cal-move" +(autoload 'calendar-scroll-right "cal-move" "Scroll the displayed calendar window right by ARG months." t) -(autoload 'scroll-calendar-left-three-months "cal-move" +(autoload 'calendar-scroll-left-three-months "cal-move" "Scroll the displayed calendar window left by 3*ARG months." t) -(autoload 'scroll-calendar-right-three-months "cal-move" +(autoload 'calendar-scroll-right-three-months "cal-move" "Scroll the displayed calendar window right by 3*ARG months." t) @@ -2224,14 +2224,14 @@ movement commands will not work correctly." downcase-region upcase-region kill-region copy-region-as-kill capitalize-region write-region)) (define-key map (vector 'remap c) 'calendar-not-implemented)) - (define-key map "<" 'scroll-calendar-right) - (define-key map "\C-x<" 'scroll-calendar-right) - (define-key map [prior] 'scroll-calendar-right-three-months) - (define-key map "\ev" 'scroll-calendar-right-three-months) - (define-key map ">" 'scroll-calendar-left) - (define-key map "\C-x>" 'scroll-calendar-left) - (define-key map [next] 'scroll-calendar-left-three-months) - (define-key map "\C-v" 'scroll-calendar-left-three-months) + (define-key map "<" 'calendar-scroll-right) + (define-key map "\C-x<" 'calendar-scroll-right) + (define-key map [prior] 'calendar-scroll-right-three-months) + (define-key map "\ev" 'calendar-scroll-right-three-months) + (define-key map ">" 'calendar-scroll-left) + (define-key map "\C-x>" 'calendar-scroll-left) + (define-key map [next] 'calendar-scroll-left-three-months) + (define-key map "\C-v" 'calendar-scroll-left-three-months) (define-key map "\C-b" 'calendar-backward-day) (define-key map "\C-p" 'calendar-backward-week) (define-key map "\e{" 'calendar-backward-month) @@ -2383,7 +2383,7 @@ movement commands will not work correctly." 'help-echo "mouse-1: previous month" 'mouse-face 'mode-line-highlight 'keymap (make-mode-line-mouse-map 'mouse-1 - 'mouse-scroll-calendar-right)) + 'calendar-scroll-right)) "Calendar" (concat (propertize @@ -2412,7 +2412,7 @@ movement commands will not work correctly." 'help-echo "mouse-1: next month" 'mouse-face 'mode-line-highlight 'keymap (make-mode-line-mouse-map - 'mouse-1 'mouse-scroll-calendar-left))) + 'mouse-1 'calendar-scroll-left))) "The mode line of the calendar buffer. This must be a list of items that evaluate to strings--those strings are @@ -2439,24 +2439,6 @@ under the cursor: (extract-calendar-year iso-date))) \"\"))") -(defun mouse-scroll-calendar-left (event) - "Scroll the displayed calendar left by one month. -Maintains the relative position of the cursor -with respect to the calendar as well as possible." - (interactive "e") - (save-selected-window - (select-window (posn-window (event-start event))) - (scroll-calendar-left 1))) - -(defun mouse-scroll-calendar-right (event) - "Scroll the displayed calendar right by one month. -Maintains the relative position of the cursor -with respect to the calendar as well as possible." - (interactive "e") - (save-selected-window - (select-window (posn-window (event-start event))) - (scroll-calendar-right 1))) - (defun mouse-calendar-other-month (event) "Display a three-month calendar centered around a specified month and year." (interactive "e") -- 2.11.4.GIT