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 | 06b8e0467b90353cdfbe30f5e6b4579e69ca4e71 (patch) | |
| tree | 0a9cb46dcde3f306ec78d0d73532f70a77eb0b0a | |
| parent | 2eece6cdf4a1da62f11709cb5dd07e3fa9669092 (diff) | |
| download | geiser-06b8e0467b90353cdfbe30f5e6b4579e69ca4e71.tar.gz geiser-06b8e0467b90353cdfbe30f5e6b4579e69ca4e71.tar.bz2 | |
elisp/geiser-completion.el: Expose `--symbol-list` and `--module-list` funcs.
| -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))) |