Mercurial > emacs

comparison lisp/comint.el @ 10125:317294dfa695

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comint-mode-map): Treat C-up, C-down like M-p, M-n.
author Richard M. Stallman <rms@gnu.org>
date Wed, 07 Dec 1994 10:25:44 +0000
parents 08efed8251d6
children a657f6491234
comparison
equal deleted inserted replaced
10124:baab57e76991 10125:317294dfa695
392 nil 392 nil
393 ;; Keys: 393 ;; Keys:
394 (setq comint-mode-map (make-sparse-keymap)) 394 (setq comint-mode-map (make-sparse-keymap))
395 (define-key comint-mode-map "\ep" 'comint-previous-input) 395 (define-key comint-mode-map "\ep" 'comint-previous-input)
396 (define-key comint-mode-map "\en" 'comint-next-input) 396 (define-key comint-mode-map "\en" 'comint-next-input)
397 (define-key comint-mode-map [C-up] 'comint-previous-input)
398 (define-key comint-mode-map [C-down] 'comint-next-input)
397 (define-key comint-mode-map "\er" 'comint-previous-matching-input) 399 (define-key comint-mode-map "\er" 'comint-previous-matching-input)
398 (define-key comint-mode-map "\es" 'comint-next-matching-input) 400 (define-key comint-mode-map "\es" 'comint-next-matching-input)
399 (define-key comint-mode-map [?\A-\M-r] 'comint-previous-matching-input-from-input) 401 (define-key comint-mode-map [?\A-\M-r] 'comint-previous-matching-input-from-input)
400 (define-key comint-mode-map [?\A-\M-s] 'comint-next-matching-input-from-input) 402 (define-key comint-mode-map [?\A-\M-s] 'comint-next-matching-input-from-input)
401 (define-key comint-mode-map "\e\C-l" 'comint-show-output) 403 (define-key comint-mode-map "\e\C-l" 'comint-show-output)