summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@imladris.local>2016-06-12 22:22:26 +0200
committerJose Antonio Ortega Ruiz <jao@imladris.local>2016-06-12 22:22:26 +0200
commit368d12c1637be2cd66e0084524cae9945dcec18d (patch)
treeac53bddf84ad96501f58feb69a27ab3d952dc24a /elisp
parent1f4885c1e5e0ade2883cdf02255a7986df8e4f86 (diff)
downloadgeiser-guile-368d12c1637be2cd66e0084524cae9945dcec18d.tar.gz
geiser-guile-368d12c1637be2cd66e0084524cae9945dcec18d.tar.bz2
New key bindings: C-c C-c, C-c C-l
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-mode.el8
-rw-r--r--elisp/geiser-repl.el1
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)