From 29b908f48e0fd5b85951bd6e73546ee833d64d59 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sun, 20 Aug 2023 17:43:42 +0200 Subject: 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 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) -- cgit v1.0