summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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 ac328b3..3ded76c 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -281,6 +281,10 @@ module command as a string")
(defsubst geiser-repl--set-this-buffer-project (p)
(setq geiser-repl--project p))
+(defsubst geiser-repl--current-project ()
+ (or (funcall geiser-repl-current-project-function)
+ 'no-project))
+
(defun geiser-repl--live-p ()
(and geiser-repl--repl
(get-buffer-process geiser-repl--repl)))
@@ -319,10 +323,6 @@ module command as a string")
(defsubst geiser-repl--buffer-name (impl)
(funcall geiser-repl-buffer-name-function impl))
-(defsubst geiser-repl--current-project ()
- (or (funcall geiser-repl-current-project-function)
- 'no-project))
-
(defun geiser-repl-buffer-name (impl)
"Return default name of the REPL buffer for implementation IMPL."
(format "* %s *" (geiser-repl--repl-name impl)))