diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-23 23:04:58 +0200 | 
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-23 23:04:58 +0200 | 
| commit | 196e6e59c829829fe9cfb8e7eb6111e11161ace5 (patch) | |
| tree | 467371b5cfe6b3c8a9cb78f1c747e2db53a7b7b3 | |
| parent | 5315da0834c55cfff5f8cac50984ce73301a0d97 (diff) | |
| download | geiser-196e6e59c829829fe9cfb8e7eb6111e11161ace5.tar.gz geiser-196e6e59c829829fe9cfb8e7eb6111e11161ace5.tar.bz2 | |
REPL: quit command.
| -rw-r--r-- | README | 3 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 4 | 
2 files changed, 5 insertions, 2 deletions
| @@ -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)) | 
