summaryrefslogtreecommitdiff
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
commitf6f4ac04d88f3a85db02b2a54202e80ea0056991 (patch)
tree6cc9b847824b7584c1c52dcd2a55db0a7f3612c0
parentf5e1a1085f3d033c68954bef7aa21b32bcc037c3 (diff)
downloadgeiser-guile-f6f4ac04d88f3a85db02b2a54202e80ea0056991.tar.gz
geiser-guile-f6f4ac04d88f3a85db02b2a54202e80ea0056991.tar.bz2
Refix #271, and consider gardening instead of programming
-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)))