summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-12-22 02:02:18 +0000
committerjao <jao@gnu.org>2021-12-22 02:02:18 +0000
commit2230f8e1c68697bd09619071a45b8438eacbc4e4 (patch)
treef65c867989e937612dcc06c543d4253650e417b0 /elisp
parent67c4689da3b05495ef8a7ab0e2a04dbaf1f49f89 (diff)
downloadgeiser-2230f8e1c68697bd09619071a45b8438eacbc4e4.tar.gz
geiser-2230f8e1c68697bd09619071a45b8438eacbc4e4.tar.bz2
geiser-completion: pre-25 compat code removed
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-completion.el14
1 files changed, 5 insertions, 9 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 3a2943d..9943030 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -63,14 +63,10 @@
(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)
- (completion-table-dynamic 'geiser-completion--module-list t)))
+ (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)
- (completion-table-dynamic 'geiser-completion--symbol-list t)))
+ (completion-table-dynamic 'geiser-completion--symbol-list t))
(defun geiser-completion--complete (prefix modules)
(if modules
@@ -86,13 +82,13 @@
nil nil nil
(or history
geiser-completion--symbol-history)
- (or default (geiser--symbol-at-point))))))
+ (or default
+ (symbol-name (geiser--symbol-at-point)))))))
(defvar geiser-completion--module-history nil)
(defun geiser-completion--read-module (&optional prompt default history)
- (let ((minibuffer-local-completion-map
- geiser-completion--module-minibuffer-map))
+ (let ((minibuffer-local-completion-map geiser-completion--module-minibuffer-map))
(completing-read (or prompt "Module name: ")
geiser-completion-module-list-func
nil nil nil