(calendar-mode-map): Add arrow key bindings.

[gnu-emacs] / lisp / calendar / calendar.el

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 3a8a00e0c5264443c961802b1154e6fb39b08576..3dca292329f286fffa98d57d4a7d4461360cbafc 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1455,6 +1455,10 @@ the inserted text.  Value is always t."
   (define-key calendar-mode-map "\C-x[" 'calendar-backward-year)
   (define-key calendar-mode-map "\C-f"  'calendar-forward-day)
   (define-key calendar-mode-map "\C-n"  'calendar-forward-week)
+  (define-key calendar-mode-map [left]  'calendar-backward-day)
+  (define-key calendar-mode-map [up]    'calendar-backward-week)
+  (define-key calendar-mode-map [right] 'calendar-forward-day)
+  (define-key calendar-mode-map [down]  'calendar-forward-week)
   (define-key calendar-mode-map "\e}"   'calendar-forward-month)
   (define-key calendar-mode-map "\C-x]" 'calendar-forward-year)
   (define-key calendar-mode-map "\C-a"  'calendar-beginning-of-week)