Mercurial > emacs
comparison lisp/cus-edit.el @ 33110:10379d59910e custom_themes_branchpoint
(custom-mode-map): Switch back to a sparse keymap.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 31 Oct 2000 21:06:51 +0000 |
| parents | 42e118959715 |
| children | 77d48dfb2b29 |
comparison
equal
deleted
inserted
replaced
| 33109:4f7feff5008f | 33110:10379d59910e |
|---|---|
| 3659 | 3659 |
| 3660 (defvar custom-mode-map nil | 3660 (defvar custom-mode-map nil |
| 3661 "Keymap for `custom-mode'.") | 3661 "Keymap for `custom-mode'.") |
| 3662 | 3662 |
| 3663 (unless custom-mode-map | 3663 (unless custom-mode-map |
| 3664 (setq custom-mode-map (make-keymap)) | 3664 ;; This keymap should be dense, but a dense keymap would prevent inheriting |
| 3665 ;; "\r" bindings from the parent map. | |
| 3666 (setq custom-mode-map (make-sparse-keymap)) | |
| 3665 (set-keymap-parent custom-mode-map widget-keymap) | 3667 (set-keymap-parent custom-mode-map widget-keymap) |
| 3666 (suppress-keymap custom-mode-map) | 3668 (suppress-keymap custom-mode-map) |
| 3667 (define-key custom-mode-map " " 'scroll-up) | 3669 (define-key custom-mode-map " " 'scroll-up) |
| 3668 (define-key custom-mode-map "\177" 'scroll-down) | 3670 (define-key custom-mode-map "\177" 'scroll-down) |
| 3669 (define-key custom-mode-map "q" 'Custom-buffer-done) | 3671 (define-key custom-mode-map "q" 'Custom-buffer-done) |