[elpa] externals/orderless 7ddf5dfe9e 4/4: Fix indentation for orderless--separated-by

[ELPA Syncer]

branch: externals/orderless
commit 7ddf5dfe9e982ee1510ceec36eeb4d8bb802ea73
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Fix indentation for orderless--separated-by
    
    Thanks for the suggestion in #63, @conao3!
    
    I didn't know (declare (indent 1)) also worked for functions, I
    thought it only worked for macros ---I have no idea why I thought that.
---
 orderless.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/orderless.el b/orderless.el
index 67b2afd6b8..6352697247 100644
--- a/orderless.el
+++ b/orderless.el
@@ -186,6 +186,7 @@ This is simply `regexp-quote'.")
 If BEFORE is specified, add it to the beginning of the rx
 sequence.  If AFTER is specified, add it to the end of the rx
 sequence."
+  (declare (indent 1))
   (rx-to-string
    `(seq
      ,(or before "")
@@ -199,14 +200,14 @@ sequence."
 This means the characters in COMPONENT must occur in the
 candidate in that order, but not necessarily consecutively."
   (orderless--separated-by '(zero-or-more nonl)
-   (cl-loop for char across component collect char)))
+    (cl-loop for char across component collect char)))
 
 (defun orderless-initialism (component)
   "Match a component as an initialism.
 This means the characters in COMPONENT must occur in the
 candidate, in that order, at the beginning of words."
   (orderless--separated-by '(zero-or-more nonl)
-   (cl-loop for char across component collect `(seq word-start ,char))))
+    (cl-loop for char across component collect `(seq word-start ,char))))
 
 (defun orderless-prefixes (component)
   "Match a component as multiple word prefixes.
@@ -214,8 +215,8 @@ The COMPONENT is split at word endings, and each piece must 
match
 at a word boundary in the candidate.  This is similar to the
 `partial-completion' completion style."
   (orderless--separated-by '(zero-or-more nonl)
-   (cl-loop for prefix in (split-string component "\\>")
-            collect `(seq word-boundary ,prefix))))
+    (cl-loop for prefix in (split-string component "\\>")
+             collect `(seq word-boundary ,prefix))))
 
 (defun orderless-without-literal (component)
   "Match strings that do *not* contain COMPONENT as a literal match."