diff options
| author | Jose Antonio Ortega Ruiz <jao@imladris.local> | 2016-06-12 22:22:26 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@imladris.local> | 2016-06-12 22:22:26 +0200 |
| commit | 5f27067eb6ffb9ae96d503a70d46977b12dcdf23 (patch) | |
| tree | ca7471cc36532355676dfe4357a25672f517d1aa /elisp | |
| parent | a41bb70f7d58a59c7a931030b800cbffb9777d9f (diff) | |
| download | geiser-5f27067eb6ffb9ae96d503a70d46977b12dcdf23.tar.gz geiser-5f27067eb6ffb9ae96d503a70d46977b12dcdf23.tar.bz2 | |
New key bindings: C-c C-c, C-c C-l
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-mode.el | 8 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 1 |
2 files changed, 5 insertions, 4 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index 4ca8af2..d0f184e 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -328,15 +328,15 @@ interacting with the Geiser REPL is at your disposal. (geiser-menu--defmenu geiserm geiser-mode-map ("Eval sexp before point" "\C-x\C-e" geiser-eval-last-sexp) - ("Eval definition" "\M-\C-x" geiser-eval-definition) - ("Eval definition and go" "\C-c\M-e" geiser-eval-definition-and-go) + ("Eval definition" ("\M-\C-x" "\C-c\C-c") geiser-eval-definition) + ("Eval definition and go" ("\C-c\M-e" "\C-c\M-e") + geiser-eval-definition-and-go) ("Eval region" "\C-c\C-r" geiser-eval-region :enable mark-active) ("Eval region and go" "\C-c\M-r" geiser-eval-region-and-go geiser-eval-region :enable mark-active) ("Eval buffer" "\C-c\C-b" geiser-eval-buffer) ("Eval buffer and go" "\C-c\M-b" geiser-eval-buffer-and-go) -;; ("Compile definition" "\C-c\M-c" geiser-compile-definition) -;; ("Compile definition and go" "\C-c\C-c" geiser-compile-definition-and-go) + ("Load scheme file..." "\C-c\C-l" geiser-load-file) (menu "Macroexpand" ("Sexp before point" ("\C-c\C-m\C-e" "\C-c\C-me") geiser-expand-last-sexp) diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index d79f503..0cee34f 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -710,6 +710,7 @@ buffer." ("Edit symbol" "\M-." geiser-edit-symbol-at-point :enable (geiser--symbol-at-point)) -- + ("Load scheme file..." "\C-c\C-l" geiser-load-file) ("Switch to module..." "\C-c\C-m" switch-to-geiser-module) ("Import module..." "\C-c\C-i" geiser-repl-import-module) ("Add to load path..." "\C-c\C-r" geiser-add-to-load-path) |