diff options
| author | Richard M. Stallman | 1994-03-02 16:45:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-03-02 16:45:37 +0000 |
| commit | 254b60f8b6aaf16bea9cbcc3b5551c73a14678c2 (patch) | |
| tree | 6456c092db471705a9704c1ff4608a6415c9bdd6 | |
| parent | 5c07a9505f82f646498ffce54deef7390d61b031 (diff) | |
| download | emacs-254b60f8b6aaf16bea9cbcc3b5551c73a14678c2.tar.gz emacs-254b60f8b6aaf16bea9cbcc3b5551c73a14678c2.zip | |
(inferior-scheme-mode-map): Use copy-keymap.
| -rw-r--r-- | lisp/cmuscheme.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index 30510103b7b..e3f63527a99 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el | |||
| @@ -117,7 +117,7 @@ | |||
| 117 | 117 | ||
| 118 | (cond ((not inferior-scheme-mode-map) | 118 | (cond ((not inferior-scheme-mode-map) |
| 119 | (setq inferior-scheme-mode-map | 119 | (setq inferior-scheme-mode-map |
| 120 | (full-copy-sparse-keymap comint-mode-map)) | 120 | (copy-keymap comint-mode-map)) |
| 121 | (define-key inferior-scheme-mode-map "\M-\C-x" ;gnu convention | 121 | (define-key inferior-scheme-mode-map "\M-\C-x" ;gnu convention |
| 122 | 'scheme-send-definition) | 122 | 'scheme-send-definition) |
| 123 | (define-key inferior-scheme-mode-map "\C-x\C-e" 'scheme-send-last-sexp) | 123 | (define-key inferior-scheme-mode-map "\C-x\C-e" 'scheme-send-last-sexp) |