diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-08-31 16:41:45 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-08-31 16:41:45 +0200 |
| commit | 3ad5e9e4b96e55e77832f5b9ecec827bfec47e45 (patch) | |
| tree | 366d71f82da33b2bd713528c82cbbf679426c03d | |
| parent | b09474daeb892ef0293342839a379e34d4d7c048 (diff) | |
| download | geiser-chez-3ad5e9e4b96e55e77832f5b9ecec827bfec47e45.tar.gz geiser-chez-3ad5e9e4b96e55e77832f5b9ecec827bfec47e45.tar.bz2 | |
Fix for importing modules at the REPL
| -rw-r--r-- | elisp/geiser-repl.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index adcf03f..ac4413e 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -237,6 +237,7 @@ If no REPL is running, execute `run-geiser' to start a fresh one." ((and (not ask) impl (geiser-repl--repl/impl impl))))) (pop-up-windows geiser-repl-window-allow-split)) (cond ((and (eq (current-buffer) repl) + (not (eq repl buffer)) (buffer-live-p geiser-repl--last-scm-buffer)) (pop-to-buffer geiser-repl--last-scm-buffer)) (repl (pop-to-buffer repl)) @@ -278,14 +279,14 @@ module command as a string") module command as a string") (defun geiser-repl-import-module (&optional module) - "Import a given module in the current namespace." + "Import a given module in the current namespace of the REPL." (interactive) (let* ((module (or module (geiser-completion--read-module "Import module: "))) (cmd (and module (geiser-repl--import-cmd geiser-impl--implementation module)))) - (switch-to-geiser) + (switch-to-geiser nil nil (current-buffer)) (geiser-repl--send cmd))) (defun geiser-repl-nuke () |