diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-14 13:07:54 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-14 13:07:54 +0200 |
| commit | 643be2437b520af1cb0ebc03114d8c6d8ca2a5ae (patch) | |
| tree | 8180a0de267bea6e94949469fae245e6e3188f17 /elisp | |
| parent | 49d7ec0b57dca5551a25bd5d3636844c345ddf0c (diff) | |
| download | geiser-643be2437b520af1cb0ebc03114d8c6d8ca2a5ae.tar.gz geiser-643be2437b520af1cb0ebc03114d8c6d8ca2a5ae.tar.bz2 | |
Fixing the mess during initialization.
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-impl.el | 7 | ||||
| -rw-r--r-- | elisp/geiser-plt.el | 6 | ||||
| -rw-r--r-- | elisp/geiser-syntax.el | 1 | ||||
| -rw-r--r-- | elisp/geiser.el | 8 |
4 files changed, 9 insertions, 13 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index fe8ccd7..6bc4e79 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -71,9 +71,6 @@ (let ((impl (or impl geiser-impl--implementation))) (and impl (capitalize (format "%s" impl))))) -(defsubst geiser-impl--impl-feature (impl) - (intern (format "geiser-%s" impl))) - ;;; Installing Scheme implementations: @@ -226,9 +223,7 @@ implementation to be used by Geiser.")) ;;; Initialization: -(mapc (lambda (impl) - (require (geiser-impl--impl-feature impl) nil t)) - geiser-impl-installed-implementations) +(mapc 'geiser-impl--register geiser-impl-installed-implementations) (provide 'geiser-impl) diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el index cfc0909..e0400ec 100644 --- a/elisp/geiser-plt.el +++ b/elisp/geiser-plt.el @@ -24,7 +24,6 @@ ;;; Code: -(require 'geiser-impl) (require 'geiser-eval) (require 'geiser-syntax) (require 'geiser-custom) @@ -168,10 +167,5 @@ This function uses `geiser-plt-init-file' if it exists." (with-syntax 1)) -;;; Register this implementation: - -(geiser-impl--register 'plt) - - (provide 'geiser-plt) ;;; geiser-plt.el ends here diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index a09c17e..ea57a95 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -24,6 +24,7 @@ ;;; Code: +(require 'geiser-popup) (require 'geiser-base) (require 'scheme) 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: |