summaryrefslogtreecommitdiff
path: root/elisp/geiser-reload.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-09-11 22:01:14 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-09-11 22:01:14 +0200
commitd5dfd349a4126324ff5fb41a2c20edf8725edda9 (patch)
tree37d4d2599a47cf09240f58b1f32743e7d7c24b37 /elisp/geiser-reload.el
parentbf4b717791be199ce21a0c36b4b7baf3f8511f66 (diff)
downloadgeiser-chez-d5dfd349a4126324ff5fb41a2c20edf8725edda9.tar.gz
geiser-chez-d5dfd349a4126324ff5fb41a2c20edf8725edda9.tar.bz2
Reload: we now remember user customizations and restore them during geiser-reload.
Diffstat (limited to 'elisp/geiser-reload.el')
-rw-r--r--elisp/geiser-reload.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-reload.el b/elisp/geiser-reload.el
index 80d6a17..d3b62eb 100644
--- a/elisp/geiser-reload.el
+++ b/elisp/geiser-reload.el
@@ -14,6 +14,7 @@
(require 'geiser-impl)
(require 'geiser-repl)
(require 'geiser-mode)
+(require 'geiser-custom)
(require 'geiser-base)
(require 'geiser)
@@ -66,14 +67,14 @@ loaded again."
(file-exists-p (expand-file-name "geiser-reload.elc" dir)))
(error "%s does not contain Geiser!" dir))
(let ((installed (featurep 'geiser-install))
- (installed-impls geiser-impl-installed-implementations)
+ (memo (geiser-custom--memoized-state))
(impls geiser-impl--impls)
(repls (geiser-repl--repl-list))
(buffers (geiser-mode--buffers)))
(geiser-unload)
(setq load-path (remove old-dir load-path))
(add-to-list 'load-path dir)
- (setq geiser-impl-installed-implementations installed-impls)
+ (mapc (lambda (x) (set (car x) (cdr x))) memo)
(require 'geiser-reload)
(when installed (require 'geiser-install nil t))
(geiser-impl--reload-implementations impls)