diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-08-19 23:44:54 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-08-19 23:44:54 +0200 |
| commit | ceb34c77c231876d9383dcbacff00584914aa8dd (patch) | |
| tree | c0eeab8db3264355d316611801aed2f315f7f6c9 /elisp/geiser-repl.el | |
| parent | a9699340d3dbb641fac7a2e29153b63f6f2a6ed5 (diff) | |
| download | geiser-ceb34c77c231876d9383dcbacff00584914aa8dd.tar.gz geiser-ceb34c77c231876d9383dcbacff00584914aa8dd.tar.bz2 | |
C-c k == nuke repl
Diffstat (limited to 'elisp/geiser-repl.el')
| -rw-r--r-- | elisp/geiser-repl.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 8eb1fc9..bed653f 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -297,6 +297,9 @@ If no REPL is running, execute `run-geiser' to start a fresh one." (define-key geiser-repl-mode-map "\C-d" 'delete-char) +(define-key geiser-repl-mode-map "\C-ck" 'geiser-repl-nuke) +(define-key geiser-repl-mode-map "\C-c\C-k" 'geiser-repl-nuke) + (define-key geiser-repl-mode-map "\C-cz" 'switch-to-geiser) (define-key geiser-repl-mode-map "\C-c\C-z" 'switch-to-geiser) (define-key geiser-repl-mode-map "\C-a" 'geiser-repl--bol) @@ -304,7 +307,6 @@ If no REPL is running, execute `run-geiser' to start a fresh one." (define-key geiser-repl-mode-map "\C-ca" 'geiser-autodoc-mode) (define-key geiser-repl-mode-map "\C-cd" 'geiser-doc-symbol-at-point) (define-key geiser-repl-mode-map "\C-cm" 'geiser-repl--doc-module) -(define-key geiser-repl-mode-map "\C-ck" 'geiser-compile-file) (define-key geiser-repl-mode-map "\C-cl" 'geiser-load-file) (define-key geiser-repl-mode-map "\M-p" 'comint-previous-matching-input-from-input) |