summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorBrian Leung <leungbk@mailfence.com>2019-10-25 06:50:02 +0000
committerBrian Leung <leungbk@mailfence.com>2019-10-25 06:50:02 +0000
commit06b8e0467b90353cdfbe30f5e6b4579e69ca4e71 (patch)
tree0a9cb46dcde3f306ec78d0d73532f70a77eb0b0a /elisp
parent2eece6cdf4a1da62f11709cb5dd07e3fa9669092 (diff)
downloadgeiser-06b8e0467b90353cdfbe30f5e6b4579e69ca4e71.tar.gz
geiser-06b8e0467b90353cdfbe30f5e6b4579e69ca4e71.tar.bz2
elisp/geiser-completion.el: Expose `--symbol-list` and `--module-list` funcs.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-completion.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index bac9035..765b456 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -61,12 +61,12 @@
(defsubst geiser-completion--module-list (prefix)
(geiser-eval--send/result `(:eval (:ge module-completions ,prefix))))
-(defvar geiser-completion--symbol-list-func
+(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)))
-(defvar geiser-completion--module-list-func
+(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)))
@@ -80,7 +80,7 @@
(defun geiser-completion--read-symbol (prompt &optional default history)
(let ((minibuffer-local-completion-map geiser-completion--minibuffer-map))
(make-symbol (completing-read prompt
- geiser-completion--symbol-list-func
+ geiser-completion-symbol-list-func
nil nil nil
(or history
geiser-completion--symbol-history)
@@ -92,7 +92,7 @@
(let ((minibuffer-local-completion-map
geiser-completion--module-minibuffer-map))
(completing-read (or prompt "Module name: ")
- geiser-completion--module-list-func
+ geiser-completion-module-list-func
nil nil nil
(or history geiser-completion--module-history)
default)))