summaryrefslogtreecommitdiff
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
commit196e6e59c829829fe9cfb8e7eb6111e11161ace5 (patch)
tree467371b5cfe6b3c8a9cb78f1c747e2db53a7b7b3
parent5315da0834c55cfff5f8cac50984ce73301a0d97 (diff)
downloadgeiser-196e6e59c829829fe9cfb8e7eb6111e11161ace5.tar.gz
geiser-196e6e59c829829fe9cfb8e7eb6111e11161ace5.tar.bz2
REPL: quit command.
-rw-r--r--README3
-rw-r--r--elisp/geiser-repl.el4
2 files changed, 5 insertions, 2 deletions
diff --git a/README b/README
index 9d65bac..d51b0cc 100644
--- a/README
+++ b/README
@@ -131,6 +131,7 @@
|----------------+----------------------------------------------------|
| C-c C-z, C-c z | Start Scheme REPL (if it's not running) |
+ | C-c C-q | Kill Scheme process |
|----------------+----------------------------------------------------|
| M-. | Edit identifier at point |
| TAB, M-TAB | Complete identifier at point |
@@ -140,7 +141,7 @@
|----------------+----------------------------------------------------|
| C-c C-k, C-c k | Nuke REPL: use it if the REPL becomes unresponsive |
|----------------+----------------------------------------------------|
- | C-c C-m, C-c m | Set current module
+ | C-c C-m, C-c m | Set current module |
| C-c C-l, C-c l | Load scheme file |
|----------------+----------------------------------------------------|
| C-c C-d, C-c d | See module documentation |
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))