summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-23 23:04:58 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-23 23:04:58 +0200
commit878f478f5a4b1d9e598d9caa425ee56ad3afb6ab (patch)
treefa12fec687ee63761f4f8cdeb9aab16cdba64fb6 /elisp
parent6f92b8d92be72a5cc54f7ccb5ed9cef15de33296 (diff)
downloadgeiser-chez-878f478f5a4b1d9e598d9caa425ee56ad3afb6ab.tar.gz
geiser-chez-878f478f5a4b1d9e598d9caa425ee56ad3afb6ab.tar.bz2
REPL: quit command.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-repl.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 5e1ab3d..3e52361 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -408,11 +408,13 @@ module command as a string")
("Module documentation" ("\C-c\C-d" "\C-cd") geiser-repl--doc-module
"Documentation for module at point" :enable (symbol-at-point))
--
+ ("Kill Scheme interpreter" "\C-c\C-q" comint-kill-subjob
+ :enable (geiser-repl--this-buffer-repl))
("Restart" ("\C-cz" "\C-c\C-z") switch-to-geiser
:enable (not (geiser-repl--this-buffer-repl)))
("Revive REPL" ("\C-ck" "\C-c\C-k") geiser-repl-nuke
"Use this command if the REPL becomes irresponsive"
- :enable (not (geiser-repl--this-buffer-repl)))
+ :enable (geiser-repl--this-buffer-repl))
--
(custom "REPL options" geiser-repl))