From 196e6e59c829829fe9cfb8e7eb6111e11161ace5 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 23 Jun 2010 23:04:58 +0200 Subject: REPL: quit command. --- README | 3 ++- elisp/geiser-repl.el | 4 +++- 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)) -- cgit v1.2.3