summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)))