From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 4 Feb 1994 06:44:55 +0000 (+0000)
Subject: (calendar-mode-map): Pass (keymap) as KEYMAP arg to where-is-internal.
X-Git-Tag: emacs-19.34~10080
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7a321a4d4a050834d74048fd5cd3f165eacea98;p=emacs.git

(calendar-mode-map): Pass (keymap) as KEYMAP arg to where-is-internal.
---

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)))