branch: elpa/evil
commit f6866b5d2b85a38ad8029f83b113371d1b3aecd1
Author: nbfalcon <nikb...@outlook.com>
Commit: GitHub <nore...@github.com>
`evil-ex': `eval-expression' auto-completion (#1398)
Add auto-completion for `evil-ex' LISP expressions leveraging
`elisp-completion-at-point' if available.
---
evil-ex.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/evil-ex.el b/evil-ex.el
index c58ea130de..3120e791e4 100644
--- a/evil-ex.el
+++ b/evil-ex.el
@@ -238,6 +238,12 @@ Otherwise behaves like `delete-backward-char'."
(insert result)
(exit-minibuffer))
+(defun evil-ex-elisp-completion-at-point ()
+ "Complete an `evil-ex' Elisp expression."
+ (when (and (fboundp 'elisp-completion-at-point)
+ (string-prefix-p "(" (minibuffer-contents-no-properties)))
+ (elisp-completion-at-point)))
+
(defun evil-ex-setup ()
"Initialize Ex minibuffer.
This function registers several hooks that are used for the
@@ -251,7 +257,8 @@ interactive actions during ex state."
(with-no-warnings
(make-variable-buffer-local 'completion-at-point-functions))
(setq completion-at-point-functions
- '(evil-ex-command-completion-at-point
+ '(evil-ex-elisp-completion-at-point
+ evil-ex-command-completion-at-point
evil-ex-argument-completion-at-point)))
(put 'evil-ex-setup 'permanent-local-hook t)
