From f951a9999f0ffb097e59d3fae0427013bcee6a7a Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 6 Aug 2010 18:04:58 +0200 Subject: Removing key bindings of the form C-c . These are reserved for users. See http://www.gnu.org/software/emacs/elisp/html_node/Key-Binding-Conventions.htm --- README | 39 ++++++++++++++++++++------------------- elisp/geiser-repl.el | 10 +++++----- 2 files changed, 25 insertions(+), 24 deletions(-) diff --git a/README b/README index 09b52c7..90b45d5 100644 --- a/README +++ b/README @@ -129,25 +129,26 @@ *** In the REPL - |----------------+----------------------------------------------------| - | C-c C-z, C-c z | Start Scheme REPL, or jump to previous buffer | - | C-c C-q | Kill Scheme process | - |----------------+----------------------------------------------------| - | M-. | Edit identifier at point | - | TAB, M-TAB | Complete identifier at point | - | M-`, C-. | Complete module name at point | - |----------------+----------------------------------------------------| - | M-p, M-n | Prompt history, matching current prefix | - |----------------+----------------------------------------------------| - | 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-l, C-c l | Load scheme file | - |----------------+----------------------------------------------------| - | C-c C-d C-d | See documentation for symbol at point | - | C-c C-d C-m | See documentation for module | - | C-c C-a, C-c a | Toggle autodoc mode | - |----------------+----------------------------------------------------| + |-------------+----------------------------------------------------| + | C-c C-z | Start Scheme REPL, or jump to previous buffer | + | C-c C-q | Kill Scheme process | + |-------------+----------------------------------------------------| + | M-. | Edit identifier at point | + | TAB, M-TAB | Complete identifier at point | + | M-`, C-. | Complete module name at point | + |-------------+----------------------------------------------------| + | M-p, M-n | Prompt history, matching current prefix | + |-------------+----------------------------------------------------| + | C-c C-k | Nuke REPL: use it if the REPL becomes unresponsive | + |-------------+----------------------------------------------------| + | C-c C-m | Set current module | + | C-c C-i | Import module into current namespace | + | C-c C-l | Load scheme file | + |-------------+----------------------------------------------------| + | C-c C-d C-d | See documentation for symbol at point | + | C-c C-d C-m | See documentation for module | + | C-c C-d C-a | Toggle autodoc mode | + |-------------+----------------------------------------------------| *** In the documentation browser: diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index d969164..37572d0 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -329,7 +329,7 @@ module command as a string") (when (buffer-name (current-buffer)) (comint-kill-region comint-last-input-start (point)) (insert "\nIt's been nice interacting with you!\n") - (insert "Press C-cz to bring me back.\n" ))))))) + (insert "Press C-c C-z to bring me back.\n" ))))))) (defun geiser-repl--on-kill () (geiser-repl--on-quit) @@ -442,8 +442,8 @@ module command as a string") ("Edit symbol" "\M-." geiser-edit-symbol-at-point :enable (symbol-at-point)) -- - ("Switch to module..." ("\C-cm" "\C-c\C-m") switch-to-geiser-module) - ("Import module..." ("\C-ci" "\C-c\C-i") geiser-repl-import-module) + ("Switch to module..." "\C-c\C-m" switch-to-geiser-module) + ("Import module..." "\C-c\C-i" geiser-repl-import-module) -- ("Previous matching input" "\M-p" comint-previous-matching-input-from-input "Previous input matching current") @@ -461,9 +461,9 @@ module command as a string") -- ("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 + ("Restart" "\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 + ("Revive REPL" "\C-c\C-k" geiser-repl-nuke "Use this command if the REPL becomes irresponsive" :enable (geiser-repl--this-buffer-repl)) -- -- cgit v1.2.3