diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 3a8a00e0c52..3dca292329f 100644
--- 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)