Mercurial > emacs
comparison lisp/chistory.el @ 32367:7c181d033dae
use lisp-mode-shared-map instead of shared-lisp-mode-map
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Tue, 10 Oct 2000 17:27:38 +0000 |
| parents | bd4ad2d321a7 |
| children | 10c41fa2dafe |
comparison
equal
deleted
inserted
replaced
| 32366:40d8b29df57e | 32367:7c181d033dae |
|---|---|
| 143 "If non-nil, its value is called on entry to `command-history-mode'." | 143 "If non-nil, its value is called on entry to `command-history-mode'." |
| 144 :type 'hook | 144 :type 'hook |
| 145 :group 'chistory) | 145 :group 'chistory) |
| 146 | 146 |
| 147 (defvar command-history-map nil) | 147 (defvar command-history-map nil) |
| 148 (if command-history-map | 148 (unless command-history-map |
| 149 nil | 149 (setq command-history-map (make-sparse-keymap)) |
| 150 (setq command-history-map | 150 (set-keymap-parent command-history-map lisp-mode-shared-map) |
| 151 (nconc (make-sparse-keymap) shared-lisp-mode-map)) | |
| 152 (suppress-keymap command-history-map) | 151 (suppress-keymap command-history-map) |
| 153 (define-key command-history-map "x" 'command-history-repeat) | 152 (define-key command-history-map "x" 'command-history-repeat) |
| 154 (define-key command-history-map "\n" 'next-line) | 153 (define-key command-history-map "\n" 'next-line) |
| 155 (define-key command-history-map "\r" 'next-line) | 154 (define-key command-history-map "\r" 'next-line) |
| 156 (define-key command-history-map "\177" 'previous-line)) | 155 (define-key command-history-map "\177" 'previous-line)) |