summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-07 22:53:32 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-07 22:53:32 +0200
commit6fa9ca6e3372eddbb0c5a34e477db9447f87b22a (patch)
tree693a3d424af5a6174987ca09f9c2c5957e99c41d
parenta883b94eaf23ba291c3a8481440358c572a67f0b (diff)
downloadgeiser-chez-6fa9ca6e3372eddbb0c5a34e477db9447f87b22a.tar.gz
geiser-chez-6fa9ca6e3372eddbb0c5a34e477db9447f87b22a.tar.bz2
Better handling of initial setup (registering implementations).
-rw-r--r--elisp/geiser-impl.el10
-rw-r--r--elisp/geiser.el2
2 files changed, 11 insertions, 1 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index ac6c2b9..75a4ca7 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -41,6 +41,11 @@
:type 'symbol
:group 'geiser-impl)
+(defcustom geiser-impl-installed-implementations nil
+ "Initial list of installed Scheme implementations."
+ :type '(repeat symbol)
+ :group 'geiser-impl)
+
;;; Registering implementations:
@@ -209,5 +214,10 @@ implementation to be used by Geiser."))
(load-library (format "geiser-%s" impl))))
+;;; Initialization:
+
+(mapc 'geiser-impl--register geiser-impl-installed-implementations)
+
+
(provide 'geiser-impl)
;;; geiser-impl.el ends here
diff --git a/elisp/geiser.el b/elisp/geiser.el
index c57e971..d72eee7 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -95,7 +95,7 @@
'(add-hook 'scheme-mode-hook 'turn-on-geiser-mode)))
(defun geiser-setup-implementations (impls)
- (setq geiser-impl--impls (or impls '(guile plt))))
+ (setq geiser-impl-installed-implementations (or impls '(guile plt))))
(defun geiser-setup (&rest impls)
(geiser-setup-implementations impls)