summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-06 21:00:32 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-06 21:00:32 +0200
commit82cc8e16ac1cc970890859f5060b00dfa28025d1 (patch)
treee0f13e0fdd6c64bc14654368a864ca7ad16d4978 /elisp/geiser-repl.el
parent79e05d6b281a8c866723538c21a59c93cbad2d0b (diff)
downloadgeiser-82cc8e16ac1cc970890859f5060b00dfa28025d1.tar.gz
geiser-82cc8e16ac1cc970890859f5060b00dfa28025d1.tar.bz2
Nit.
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 9e36fa4..a68f6c9 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -102,7 +102,7 @@ implementation name gets appended to it."
(when (eq geiser-impl--implementation impl)
(throw 'repl repl))))))
-(defun geiser-repl--get-repl (&optional impl)
+(defun geiser-repl--set-up-repl (impl)
(or (and (not impl) geiser-repl--repl)
(setq geiser-repl--repl
(let ((impl (or impl
@@ -185,7 +185,7 @@ you at that point.")
(geiser-repl--startup impl)))
(defun geiser-repl--process ()
- (let ((buffer (geiser-repl--get-repl geiser-impl--implementation)))
+ (let ((buffer (geiser-repl--set-up-repl geiser-impl--implementation)))
(or (and (buffer-live-p buffer) (get-buffer-process buffer))
(error "No Geiser REPL for this buffer (try M-x run-geiser)"))))
@@ -316,7 +316,7 @@ module command as a string")
(with-current-buffer buffer
(when (and (eq geiser-impl--implementation impl)
(equal cb geiser-repl--repl))
- (geiser-repl--get-repl geiser-impl--implementation)))))))
+ (geiser-repl--set-up-repl geiser-impl--implementation)))))))
(defun geiser-repl--sentinel (proc event)
(let ((pb (process-buffer proc)))