summaryrefslogtreecommitdiff
path: root/elisp
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
commit0b5791b3c64a0a704948f99965c17418652fbdcd (patch)
treed3a4d47b33581c48e14ef8162acbef957f6709a8 /elisp
parent8e3660b42835a04ff6d3a5440db81da2b769444e (diff)
downloadgeiser-guile-0b5791b3c64a0a704948f99965c17418652fbdcd.tar.gz
geiser-guile-0b5791b3c64a0a704948f99965c17418652fbdcd.tar.bz2
Nit.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-mode.el2
-rw-r--r--elisp/geiser-repl.el6
2 files changed, 4 insertions, 4 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 7004004..083d90a 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -149,7 +149,7 @@ With prefix, recursively macro-expand the resulting expression."
(interactive)
(let ((impl (geiser-impl--read-impl)))
(geiser-impl--set-buffer-implementation impl)
- (geiser-repl--get-repl impl)))
+ (geiser-repl--set-up-repl impl)))
(defun geiser-mode-switch-to-repl (arg)
"Switches to Geiser REPL.
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)))