mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Geiser: Fix load order.

master
Pierre Neidhardt 2020-08-14 19:38:54 +02:00
parent 44780ce7b2
commit 67482cbe5b
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
.emacs.d/lisp/init-scheme.el
View File

@ -34,11 +34,12 @@
;; Fontify debug buffer:
(add-hook 'geiser-debug-mode-hook 'scheme-mode) ; TODO: Does not work?
(define-key geiser-repl-mode-map (kbd "C-c m") 'switch-to-geiser-module)
(define-key geiser-repl-mode-map (kbd "C-c C-m") nil)
;; Bind same macro expansion keys in the REPL:
(define-key geiser-repl-mode-map (kbd "C-c C-m C-e") 'geiser-expand-last-sexp)
(define-key geiser-repl-mode-map (kbd "C-c C-m C-x") 'geiser-expand-definition)
(define-key geiser-repl-mode-map (kbd "C-c C-m C-r") 'geiser-expand-region))
(with-eval-after-load 'geiser-repl
(define-key geiser-repl-mode-map (kbd "C-c m") 'switch-to-geiser-module)
(define-key geiser-repl-mode-map (kbd "C-c C-m") nil)
;; Bind same macro expansion keys in the REPL:
(define-key geiser-repl-mode-map (kbd "C-c C-m C-e") 'geiser-expand-last-sexp)
(define-key geiser-repl-mode-map (kbd "C-c C-m C-x") 'geiser-expand-definition)
(define-key geiser-repl-mode-map (kbd "C-c C-m C-r") 'geiser-expand-region)))
(provide 'init-scheme)