Commit b7a321a4 authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent 8f985fe2
......@@ -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)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment