summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-08 04:05:31 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-08 04:05:31 +0100
commit2f41f60f97936d139a5e533736f4d1d606ca46f9 (patch)
treeec5adadc97a9387435089322430ed752da92e852
parent7c2913d2b6287b4a29c8e56b58902f33d3c5868c (diff)
downloadgeiser-2f41f60f97936d139a5e533736f4d1d606ca46f9.tar.gz
geiser-2f41f60f97936d139a5e533736f4d1d606ca46f9.tar.bz2
Better handling of REPL's header line
-rw-r--r--elisp/geiser-repl.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index f6fc12b..ee88005 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -214,10 +214,10 @@ module command as a string")
(defun geiser-repl--save-remote-data (remote address)
(setq geiser-repl--address (and remote address))
- (when remote
- (setq header-line-format (format "Host: %s Port: %s"
- (geiser-repl--host)
- (geiser-repl--port)))))
+ (setq header-line-format (and remote
+ (format "Host: %s Port: %s"
+ (geiser-repl--host)
+ (geiser-repl--port)))))
(defun geiser-repl--start-repl (impl &optional remote)
(message "Starting Geiser REPL for %s ..." impl)