From 643be2437b520af1cb0ebc03114d8c6d8ca2a5ae Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 14 May 2009 13:07:54 +0200 Subject: Fixing the mess during initialization. --- elisp/geiser.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'elisp/geiser.el') diff --git a/elisp/geiser.el b/elisp/geiser.el index d72eee7..952cfe5 100644 --- a/elisp/geiser.el +++ b/elisp/geiser.el @@ -97,9 +97,15 @@ (defun geiser-setup-implementations (impls) (setq geiser-impl-installed-implementations (or impls '(guile plt)))) +(defsubst geiser-impl--impl-feature (impl) + (intern (format "geiser-%s" impl))) + (defun geiser-setup (&rest impls) (geiser-setup-implementations impls) - (geiser-setup-scheme-mode)) + (geiser-setup-scheme-mode) + (mapc (lambda (impl) + (require (geiser-impl--impl-feature impl) nil t)) + geiser-impl-installed-implementations)) ;;; Reload: -- cgit v1.2.3