[elpa] externals/cape fb85655faf 2/4: Formatting

[ELPA Syncer]

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

    Formatting
---
 cape.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/cape.el b/cape.el
index f492414daf..0bed89ddf4 100644
--- a/cape.el
+++ b/cape.el
@@ -824,20 +824,20 @@ completion table is refreshed on every input change."
   (pcase (funcall capf)
     (`(,beg ,end ,table . ,plist)
      `(,beg ,end
-            ,(let* ((beg (copy-marker beg))
-                    (end (copy-marker end t))
-                    (input (buffer-substring-no-properties beg end)))
-               (lambda (str pred action)
-                 (let ((new-input (buffer-substring-no-properties beg end)))
-                   (unless (or (string-match-p "\\s-" new-input) ;; Support 
Orderless
-                               (funcall valid input new-input))
-                     (pcase (funcall capf)
-                       (`(,_beg ,_end ,new-table . ,_plist)
-                        ;; NOTE: We have to make sure that the completion 
table is interruptible.
-                        ;; An interruption should not happen between the setqs.
-                        (setq table new-table input new-input)))))
-                 (complete-with-action action table str pred)))
-            ,@plist))))
+       ,(let* ((beg (copy-marker beg))
+               (end (copy-marker end t))
+               (input (buffer-substring-no-properties beg end)))
+          (lambda (str pred action)
+            (let ((new-input (buffer-substring-no-properties beg end)))
+              (unless (or (string-match-p "\\s-" new-input) ;; Support 
Orderless
+                          (funcall valid input new-input))
+                (pcase (funcall capf)
+                  (`(,_beg ,_end ,new-table . ,_plist)
+                   ;; NOTE: We have to make sure that the completion table is 
interruptible.
+                   ;; An interruption should not happen between the setqs.
+                   (setq table new-table input new-input)))))
+            (complete-with-action action table str pred)))
+       ,@plist))))
 
 ;;;###autoload
 (defun cape-wrap-properties (capf &rest properties)