summaryrefslogtreecommitdiff
path: root/elisp/geiser.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-06-18 04:51:07 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-06-18 04:51:07 +0200
commita4f4968e22784e7f8114bcde712b385e7cb7d3ea (patch)
treeab639796ee46ec045b1446e8f5786becb8889c9d /elisp/geiser.el
parent59bacc785505fff98d0bc4b05ce9fa51464f832e (diff)
downloadgeiser-a4f4968e22784e7f8114bcde712b385e7cb7d3ea.tar.gz
geiser-a4f4968e22784e7f8114bcde712b385e7cb7d3ea.tar.bz2
Initialisation fixes.
- Honouring geiser-impl-installed-implementations - Missing autoloads for customization groups added
Diffstat (limited to 'elisp/geiser.el')
-rw-r--r--elisp/geiser.el25
1 files changed, 11 insertions, 14 deletions
diff --git a/elisp/geiser.el b/elisp/geiser.el
index 748fb23..42e8cc1 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -85,27 +85,23 @@
geiser-faces
geiser-mode
geiser-guile
- geiser-plt))
+ geiser-plt
+ geiser-impl
+ geiser-xref))
;;; Scheme mode setup:
-(defun geiser-setup-scheme-mode ()
- (eval-after-load "scheme"
- '(add-hook 'scheme-mode-hook 'turn-on-geiser-mode)))
-
-(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)
+(defun geiser-setup ()
+ (eval-after-load "scheme"
+ '(add-hook 'scheme-mode-hook 'turn-on-geiser-mode))
(mapc (lambda (impl)
(require (geiser-impl--impl-feature impl) nil t))
- geiser-impl-installed-implementations))
+ (or geiser-impl-installed-implementations
+ '(guile plt))))
;;; Reload:
@@ -152,6 +148,7 @@ loaded."
geiser-root-dir))
geiser-root-dir))
(geiser-main-file (expand-file-name "elisp/geiser.el" dir))
+ (installed-impls geiser-impl-installed-implementations)
(impls (and (featurep 'geiser-impl) geiser-impl--impls))
(repls (and (featurep 'geiser-repl) (geiser-repl--repl-list)))
(buffers (and (featurep 'geiser-mode) (geiser-mode--buffers))))
@@ -159,9 +156,9 @@ loaded."
(error "%s does not contain Geiser!" dir))
(geiser-unload)
(setq load-path (remove geiser-elisp-dir load-path))
+ (setq geiser-impl-installed-implementations installed-impls)
(load-file geiser-main-file)
- (geiser-setup)
- (dolist (feature (reverse (geiser--features-list)))
+ (dolist (feature (geiser--features-list))
(load-library (format "%s" feature)))
(geiser-impl--reload-implementations impls)
(geiser-repl--restore repls)