summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-06 22:19:07 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-06 22:19:22 +0100
commit580b2193b8f4bb11eb5e24db22bc69aeb3893a9b (patch)
treecb54f5ecc6da7d13ef14d5d8fea63f0c32483dec
parentdc8009f5cba70369368a4c1d73dd1d41aece0f84 (diff)
downloadgeiser-580b2193b8f4bb11eb5e24db22bc69aeb3893a9b.tar.gz
geiser-580b2193b8f4bb11eb5e24db22bc69aeb3893a9b.tar.bz2
REPL: remembering last connection address
-rw-r--r--elisp/geiser-repl.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index b84613b..13b655e 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -156,9 +156,10 @@ expression, if any."
(pop-to-buffer
(or old
(generate-new-buffer (format "* %s *"
- (geiser-repl--repl-name impl)))))))
- (geiser-repl-mode)
- (geiser-impl--set-buffer-implementation impl))
+ (geiser-repl--repl-name impl)))))
+ (unless old
+ (geiser-repl-mode)
+ (geiser-impl--set-buffer-implementation impl)))))
(geiser-impl--define-caller geiser-repl--binary binary ()
"A variable or function returning the path to the scheme binary