From c25a0562962c0f4dfbdc81b4662609f7df715b98 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 10 May 2020 17:28:00 +0100
Subject: Completion for vanilla users
Restoring what seem reasonable definitions for the completion
functions when called away from the current buffer. Should fix issue
---
elisp/geiser-completion.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 7583b5f..9a1eebf 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -63,16 +63,18 @@
(geiser-eval--send/result `(:eval (:ge module-completions ,prefix))))
(defvar geiser-completion-module-list-func
- (if (= emacs-major-version 25)
- (completion-table-dynamic 'geiser-completion--module-list t)
- (completion-table-dynamic 'geiser-completion--module-list)))
+ (if (< emacs-major-version 25)
+ (completion-table-dynamic 'geiser-completion--module-list)
+ (completion-table-dynamic 'geiser-completion--module-list t)))
(defvar geiser-completion-symbol-list-func
(if (< emacs-major-version 25)
- (completion-table-dynamic 'geiser-completion--symbol-list t)))
+ (completion-table-dynamic 'geiser-completion--symbol-list)
+ (completion-table-dynamic 'geiser-completion--symbol-list t)))
(defun geiser-completion--complete (prefix modules)
- (if modules (geiser-completion--module-list prefix)
+ (if modules
+ (geiser-completion--module-list prefix)
(geiser-completion--symbol-list prefix)))
(defvar geiser-completion--symbol-history nil)
--
cgit v1.2.3