From e81e3cfd4e6a0c111f94d877db43770d83d1a68a Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Mon, 29 Nov 2021 15:28:34 +0100 Subject: Indent --- cape.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/cape.el b/cape.el index 08a4fca..966817f 100644 --- a/cape.el +++ b/cape.el @@ -311,6 +311,7 @@ (defmacro cape--silent (&rest body) "Silence BODY." + (declare (indent 0)) `(cl-letf ((inhibit-message t) (message-log-max nil) ((symbol-function #'minibuffer-message) #'ignore)) @@ -504,10 +505,10 @@ If INTERACTIVE is nil the function acts like a capf." (defun cape--dabbrev-list (word) "Find all dabbrev expansions for WORD." (cape--silent - (cape--dabbrev-reset) - (cl-loop with min-len = (+ cape-dabbrev-min-length (length word)) - for w in (dabbrev--find-all-expansions word (dabbrev--ignore-case-p word)) - if (>= (length w) min-len) collect w))) + (cape--dabbrev-reset) + (cl-loop with min-len = (+ cape-dabbrev-min-length (length word)) + for w in (dabbrev--find-all-expansions word (dabbrev--ignore-case-p word)) + if (>= (length w) min-len) collect w))) ;;;;; cape-ispell @@ -549,10 +550,10 @@ If INTERACTIVE is nil the function acts like a capf." "Dictionary words." (or cape--dict-words (setq cape--dict-words - (split-string (with-temp-buffer - (insert-file-contents-literally cape-dict-file) - (buffer-string)) - "\n" 'omit-nulls)))) + (split-string (with-temp-buffer + (insert-file-contents-literally cape-dict-file) + (buffer-string)) + "\n" 'omit-nulls)))) ;;;###autoload (defun cape-dict (&optional interactive) @@ -722,9 +723,9 @@ If INTERACTIVE is nil the function acts like a capf." (copy-sequence cache-candidates)) (_ (completion--some - (lambda (table) - (complete-with-action action table str pred)) - tables)))) + (lambda (table) + (complete-with-action action table str pred)) + tables)))) :exclusive 'no :company-prefix-length prefix-len :company-doc-buffer (funcall extra-fun :company-doc-buffer) -- cgit v1.0