[elpa] externals/cape 29b908f48e 1/5: cape-elisp-block: Always complete when invoked interactively

[ELPA Syncer]

branch: externals/cape
commit 29b908f48e0fd5b85951bd6e73546ee833d64d59
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    cape-elisp-block: Always complete when invoked interactively
---
 README.org | 1 +
 cape.el    | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index a8d0695f93..4078884ccb 100644
--- a/README.org
+++ b/README.org
@@ -93,6 +93,7 @@ information.
          ("C-c p f" . cape-file)
          ("C-c p k" . cape-keyword)
          ("C-c p s" . cape-symbol)
+         ("C-c p e" . cape-elisp-block)
          ("C-c p a" . cape-abbrev)
          ("C-c p l" . cape-line)
          ("C-c p w" . cape-dict)
diff --git a/cape.el b/cape.el
index 7c9be7c119..9a73b4c22c 100644
--- a/cape.el
+++ b/cape.el
@@ -478,7 +478,9 @@ This Capf is particularly useful for literate Emacs 
configurations.
 If INTERACTIVE is nil the function acts like a Capf."
   (interactive (list t))
   (if interactive
-      (cape-interactive #'cape-elisp-block)
+      ;; No code block check. Always complete Elisp when the command was
+      ;; explicitly invoked interactively.
+      (cape-interactive #'elisp-completion-at-point)
     (when-let ((face (get-text-property (point) 'face))
                (lang (or (and (if (listp face)
                                   (memq 'org-block face)