diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-08-06 18:04:58 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-08-06 18:04:58 +0200 |
| commit | 3572a10cc7e9328f491ca20d95e05ae0e377e218 (patch) | |
| tree | be7b528d50d8e4f0753cdf9b64e5de4603fd4864 /elisp | |
| parent | 654bfbff2675c45882857411c7a2f3594e708639 (diff) | |
| download | geiser-guile-3572a10cc7e9328f491ca20d95e05ae0e377e218.tar.gz geiser-guile-3572a10cc7e9328f491ca20d95e05ae0e377e218.tar.bz2 | |
Removing key bindings of the form C-c <alphabetic>.
These are reserved for users. See
http://www.gnu.org/software/emacs/elisp/html_node/Key-Binding-Conventions.htm
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-repl.el | 10 |
1 files changed, 5 insertions, 5 deletions
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)) -- |