diff options
| author | Richard M. Stallman | 1994-02-04 06:44:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-04 06:44:55 +0000 |
| commit | b7a321a4d4a050834d74048fd5cd3f165eacea98 (patch) | |
| tree | 2955396512a2b8e5ae6be836e9af91b579143792 | |
| parent | 8f985fe23c11999783a51210da71c8cf2547c537 (diff) | |
| download | emacs-b7a321a4d4a050834d74048fd5cd3f165eacea98.tar.gz emacs-b7a321a4d4a050834d74048fd5cd3f165eacea98.zip | |
(calendar-mode-map): Pass (keymap) as KEYMAP arg to where-is-internal.
| -rw-r--r-- | lisp/calendar/calendar.el | 2 |
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." | |||
| 1434 | 'copy-region-as-kill 'downcase-region 'upcase-region | 1434 | 'copy-region-as-kill 'downcase-region 'upcase-region |
| 1435 | 'capitalize-region 'write-region))) | 1435 | 'capitalize-region 'write-region))) |
| 1436 | (while (car l) | 1436 | (while (car l) |
| 1437 | (let ((k (where-is-internal (car l)))) | 1437 | (let ((k (where-is-internal (car l) '(keymap)))) |
| 1438 | (while (car k) | 1438 | (while (car k) |
| 1439 | (define-key calendar-mode-map (car k) 'calendar-not-implemented) | 1439 | (define-key calendar-mode-map (car k) 'calendar-not-implemented) |
| 1440 | (setq k (cdr k))) | 1440 | (setq k (cdr k))) |