From 763fc7b25fcdb3eb80e26a4d212818fb93fd5909 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Fri, 8 Mar 2019 09:22:53 +0100 Subject: [PATCH] Geiser: Load patch-geiser properly --- .emacs.d/lisp/init-lisp.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/.emacs.d/lisp/init-lisp.el b/.emacs.d/lisp/init-lisp.el index 84939ba5..10e7c258 100644 --- a/.emacs.d/lisp/init-lisp.el +++ b/.emacs.d/lisp/init-lisp.el @@ -156,10 +156,7 @@ (clhs-setup))) ;;; Scheme. -;; (setq geiser-repl-skip-version-check-p t -;; geiser-mode-start-repl-p t) (with-eval-after-load 'scheme - (require 'patch-geiser nil 'noerror) (when (require 'patch-scheme nil t) (setq scheme-imenu-generic-expression al/scheme-imenu-generic-expression) @@ -168,12 +165,16 @@ (add-hook 'scheme-mode-hook 'al/scheme-fix-docstring-font-lock))) (with-eval-after-load 'geiser-impl - (setq geiser-active-implementations - (delq 'chicken geiser-active-implementations) + ;; (setq geiser-repl-skip-version-check-p t + ;; geiser-mode-start-repl-p t) + (setq geiser-active-implementations (delq 'chicken geiser-active-implementations) geiser-default-implementation 'guile ;; geiser-repl-save-debugging-history-p t geiser-repl-history-size 5000) (add-hook 'geiser-repl-mode-hook 'lispyville-mode) (add-hook 'geiser-repl-mode-hook 'rainbow-delimiters-mode)) +(with-eval-after-load 'geiser-guile + (require 'patch-geiser nil 'noerror)) + (provide 'init-lisp)