(calendar-mode-map): Bind < and > usefully.

cdbcbc6a · Richard M. Stallman · 56b3b16b · cdbcbc6a
Commit cdbcbc6a authored Aug 09, 2005 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

lisp/calendar/calendar.el lisp/calendar/calendar.el +2 -0

No files found.
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -2205,9 +2205,11 @@ movement commands will not work correctly."
 				 calendar-mode-map global-map)
      (setq l (cdr l))))
  (define-key calendar-mode-map "-"     'negative-argument)
+  (define-key calendar-mode-map ">"     'scroll-calendar-right)
  (define-key calendar-mode-map "\C-x>" 'scroll-calendar-right)
  (define-key calendar-mode-map [prior] 'scroll-calendar-right-three-months)
  (define-key calendar-mode-map "\ev"   'scroll-calendar-right-three-months)
+  (define-key calendar-mode-map "<"     'scroll-calendar-left)
  (define-key calendar-mode-map "\C-x<" 'scroll-calendar-left)
  (define-key calendar-mode-map [next]  'scroll-calendar-left-three-months)
  (define-key calendar-mode-map "\C-v"  'scroll-calendar-left-three-months)