diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-11 22:01:14 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-11 22:01:14 +0200 |
| commit | 3265bb3b50c1199586205fab0febfdf0b91c3c2b (patch) | |
| tree | e4049cfc17e514428a198b00f69a4dfc5db81c5b /elisp/geiser-reload.el | |
| parent | d6ebefe0eb609c813adeba9075200cbc4f0d8947 (diff) | |
| download | geiser-3265bb3b50c1199586205fab0febfdf0b91c3c2b.tar.gz geiser-3265bb3b50c1199586205fab0febfdf0b91c3c2b.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.el | 5 |
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) |