diff options
| author | Brian Leung <leungbk@mailfence.com> | 2019-10-25 06:50:02 +0000 |
|---|---|---|
| committer | Brian Leung <leungbk@mailfence.com> | 2019-10-25 06:50:02 +0000 |
| commit | 957d4757e48a415c369010011860a71302e5eba5 (patch) | |
| tree | 44cd365cb32571a9ceb56517e164b9bd31f06f28 /elisp/geiser-completion.el | |
| parent | 526d5ed4c2437d5d9a87dce67551451448bd853e (diff) | |
| download | geiser-guile-957d4757e48a415c369010011860a71302e5eba5.tar.gz geiser-guile-957d4757e48a415c369010011860a71302e5eba5.tar.bz2 | |
elisp/geiser-completion.el: Expose `--symbol-list` and `--module-list` funcs.
Diffstat (limited to 'elisp/geiser-completion.el')
| -rw-r--r-- | elisp/geiser-completion.el | 8 |
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))) |