# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760344295 0
# Node ID 96fd8c241b4233fdd821ba28b7bae7c9988cba04
# Parent  92dd602768d28c65efce3c873d6fca3da15c5c2f
(calendar-mode-map): Pass (keymap) as KEYMAP arg to where-is-internal.

diff -r 92dd602768d2 -r 96fd8c241b42 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Fri Feb 04 04:45:52 1994 +0000
+++ b/lisp/calendar/calendar.el	Fri Feb 04 06:44:55 1994 +0000
@@ -1434,7 +1434,7 @@
                  '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)))