cape-elisp-block: Always complete when invoked interactively

2 files changed, 4 insertions, 1 deletions

diff --git a/README.org b/README.org
index a8d0695..4078884 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 7c9be7c..9a73b4c 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)