From 368d12c1637be2cd66e0084524cae9945dcec18d Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 12 Jun 2016 22:22:26 +0200 Subject: New key bindings: C-c C-c, C-c C-l --- elisp/geiser-mode.el | 8 ++++---- elisp/geiser-repl.el | 1 + 2 files changed, 5 insertions(+), 4 deletions(-) (limited to 'elisp') 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) -- cgit v1.2.3