Mercurial > emacs

comparison lisp/progmodes/inf-lisp.el @ 6151:08de067a16fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(inferior-lisp-mode-map): Use copy-keymap.
author Richard M. Stallman <rms@gnu.org>
date Wed, 02 Mar 1994 16:51:20 +0000
parents 8e6ba05e1271
children 7c7b98107b4c
comparison
equal deleted inserted replaced
6150:c1dde384f0dd 6151:08de067a16fd
72 (as in :a, :c, etc.)") 72 (as in :a, :c, etc.)")
73 73
74 (defvar inferior-lisp-mode-map nil) 74 (defvar inferior-lisp-mode-map nil)
75 (cond ((not inferior-lisp-mode-map) 75 (cond ((not inferior-lisp-mode-map)
76 (setq inferior-lisp-mode-map 76 (setq inferior-lisp-mode-map
77 (full-copy-sparse-keymap comint-mode-map)) 77 (copy-keymap comint-mode-map))
78 (setq inferior-lisp-mode-map 78 (setq inferior-lisp-mode-map
79 (nconc inferior-lisp-mode-map shared-lisp-mode-map)) 79 (nconc inferior-lisp-mode-map shared-lisp-mode-map))
80 (define-key inferior-lisp-mode-map "\C-x\C-e" 'lisp-eval-last-sexp) 80 (define-key inferior-lisp-mode-map "\C-x\C-e" 'lisp-eval-last-sexp)
81 (define-key inferior-lisp-mode-map "\C-c\C-l" 'lisp-load-file) 81 (define-key inferior-lisp-mode-map "\C-c\C-l" 'lisp-load-file)
82 (define-key inferior-lisp-mode-map "\C-c\C-k" 'lisp-compile-file) 82 (define-key inferior-lisp-mode-map "\C-c\C-k" 'lisp-compile-file)