[elpa] externals/orderless c06e66d964 4/6: Avoid long lines

[ELPA Syncer]

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

    Avoid long lines
    
    I know, I know, but I'm used to a non-maximized Emacs frame.
---
 orderless.el | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/orderless.el b/orderless.el
index bcc0d4ccbf..0d99e35ed7 100644
--- a/orderless.el
+++ b/orderless.el
@@ -425,17 +425,18 @@ This function is part of the `orderless' completion 
style."
       ;; Abuse all-completions/orderless-filter as a fast search loop.
       ;; Should be almost allocation-free since our "predicate" is not
       ;; called more than two times.
-      (orderless-filter string table
-                        ;; key/value for hash tables
-                        (lambda (&rest args)
-                          (when (or (not pred) (apply pred args))
-                            (setq args (car args) ;; first argument is key
-                                  args (if (consp args) (car args) args) ;; 
alist
-                                  args (if (symbolp args) (symbol-name args) 
args))
-                            (when (and one (not (equal one args)))
-                              (throw 'orderless--many (cons string point)))
-                            (setq one args)
-                            t)))
+      (orderless-filter
+       string table
+       ;; key/value for hash tables
+       (lambda (&rest args)
+         (when (or (not pred) (apply pred args))
+           (setq args (car args) ;; first argument is key
+                 args (if (consp args) (car args) args) ;; alist
+                 args (if (symbolp args) (symbol-name args) args))
+           (when (and one (not (equal one args)))
+             (throw 'orderless--many (cons string point)))
+           (setq one args)
+           t)))
       (when one
         (if (equal string one)
             t ;; unique exact match