summaryrefslogtreecommitdiff
path: root/elisp/geiser-completion.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2020-02-14 01:10:17 +0000
committerJose Antonio Ortega Ruiz <jao@gnu.org>2020-02-14 01:10:17 +0000
commita00d9ebad0927bbdbd4a8d50855f29de41be1d57 (patch)
tree1d3505f2be88112a338a926c5c54f15267cd34af /elisp/geiser-completion.el
parentf3099b4b4660b8804ea53a3ae241641765ddd240 (diff)
downloadgeiser-a00d9ebad0927bbdbd4a8d50855f29de41be1d57.tar.gz
geiser-a00d9ebad0927bbdbd4a8d50855f29de41be1d57.tar.bz2
Refix #271, and consider gardening instead of programming
Diffstat (limited to 'elisp/geiser-completion.el')
-rw-r--r--elisp/geiser-completion.el13
1 files changed, 3 insertions, 10 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 9c979f1..1279674 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -62,21 +62,14 @@
(geiser-eval--send/result `(:eval (:ge module-completions ,prefix))))
(defvar geiser-completion--module-list-func
- (cond ((< emacs-major-version 25)
- (completion-table-dynamic 'geiser-completion--symbol-list))
- ((= emacs-major-version 25)
- (completion-table-dynamic 'geiser-completion--module-list t))
- (t (completion-table-dynamic 'geiser-completion--module-list))))
+ (if (= emacs-major-version 25)
+ (completion-table-dynamic 'geiser-completion--module-list t)
+ (completion-table-dynamic 'geiser-completion--module-list)))
(defvar geiser-completion-symbol-list-func
(if (< emacs-major-version 25)
(completion-table-dynamic 'geiser-completion--symbol-list t)))
-(defvar geiser-completion-module-list-func
- (if (< emacs-major-version 25)
- (completion-table-dynamic 'geiser-completion--module-list)
- (completion-table-dynamic 'geiser-completion--module-list t)))
-
(defun geiser-completion--complete (prefix modules)
(if modules (geiser-completion--module-list prefix)
(geiser-completion--symbol-list prefix)))