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 | d5dfd349a4126324ff5fb41a2c20edf8725edda9 (patch) | |
| tree | 37d4d2599a47cf09240f58b1f32743e7d7c24b37 /elisp/geiser-reload.el | |
| parent | bf4b717791be199ce21a0c36b4b7baf3f8511f66 (diff) | |
| download | geiser-guile-d5dfd349a4126324ff5fb41a2c20edf8725edda9.tar.gz geiser-guile-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.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) |