summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorAndrew Whatson <whatson@gmail.com>2020-06-19 23:48:52 +1000
committerjao <jao@gnu.org>2020-07-06 20:12:33 +0000
commit01f1d479cbeb4cf1b0a908c363366e0c6100eea9 (patch)
treeffcb7baac6963c6540924595cd3c63c9a1551e87 /elisp/geiser-repl.el
parent8cba6b5ea04c9a4c8473944aa1d0a6be78e78c66 (diff)
downloadgeiser-01f1d479cbeb4cf1b0a908c363366e0c6100eea9.tar.gz
geiser-01f1d479cbeb4cf1b0a908c363366e0c6100eea9.tar.bz2
Fix byte-compiler warning
Diffstat (limited to 'elisp/geiser-repl.el')
-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)))