summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
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
commitce1f3543d0339813f85677178b8dcd06953fd2e9 (patch)
tree58bfe6b2fce50c3349b67891732d608bf7f6147a /elisp/geiser-repl.el
parent2aad392f96e8fdf6040c3761171045e25fb0a8c9 (diff)
downloadgeiser-guile-ce1f3543d0339813f85677178b8dcd06953fd2e9.tar.gz
geiser-guile-ce1f3543d0339813f85677178b8dcd06953fd2e9.tar.bz2
REPL: remembering last connection address
Diffstat (limited to 'elisp/geiser-repl.el')
-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