1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 366e5c243de..53676fa19d1 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1434,7 +1434,7 @@ the inserted text.  Value is always t."
                  'copy-region-as-kill 'downcase-region 'upcase-region
                  'capitalize-region 'write-region)))
     (while (car l)
-      (let ((k (where-is-internal (car l))))
+      (let ((k (where-is-internal (car l) '(keymap))))
         (while (car k)
           (define-key calendar-mode-map (car k) 'calendar-not-implemented)
           (setq k (cdr k)))