Mercurial > emacs
changeset 2397:2b34a2ef4d63
(electric-buffer-menu-mode-map): fillarray isn't a valid operation on maps
any more.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Sun, 28 Mar 1993 06:24:33 +0000 |
| parents | 80bed5e0c8aa |
| children | 0d9cbf4b25c8 |
| files | lisp/ebuff-menu.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ebuff-menu.el Sun Mar 28 05:24:23 1993 +0000 +++ b/lisp/ebuff-menu.el Sun Mar 28 06:24:33 1993 +0000 @@ -152,10 +152,10 @@ (put 'Electric-buffer-menu-undefined 'suppress-keymap t) (if electric-buffer-menu-mode-map nil - (let ((map (make-keymap))) - (fillarray map 'Electric-buffer-menu-undefined) - (define-key map "\e" (make-keymap)) - (fillarray (lookup-key map "\e") 'Electric-buffer-menu-undefined) + (let ((map (make-keymap)) (submap (make-keymap))) + (fillarray (car (cdr map)) 'Electric-buffer-menu-undefined) + (define-key map "\e" submap) + (fillarray (car (cdr submap)) 'Electric-buffer-menu-undefined) (define-key map "\C-z" 'suspend-emacs) (define-key map "v" 'Electric-buffer-menu-mode-view-buffer) (define-key map (char-to-string help-char) 'Helper-help)