[elpa] externals/consult 1b6d22db9f 2/5: Fix whitespace

[ELPA Syncer]

branch: externals/consult
commit 1b6d22db9f2db38b831d350eff664001fa8b935d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Fix whitespace
---
 consult.el | 76 +++++++++++++++++++++++++++++++-------------------------------
 1 file changed, 38 insertions(+), 38 deletions(-)

diff --git a/consult.el b/consult.el
index d61be464ca..915d77b789 100644
--- a/consult.el
+++ b/consult.el
@@ -143,10 +143,10 @@ The histories can be rings or lists.  INDEX, if provided, 
is a
 variable to set to the index of the selection within the ring or
 list."
   :type '(alist :key-type symbol
-               :value-type (choice (symbol :tag "List or Ring Name")
-                                   (group :tag "Include Index"
-                                          (symbol :tag "List/Ring")
-                                          (symbol :tag "Index Var")))))
+                :value-type (choice (symbol :tag "List or Ring Name")
+                                    (group :tag "Include Index"
+                                           (symbol :tag "List/Ring")
+                                           (symbol :tag "Index Var")))))
 
 (defcustom consult-themes nil
   "List of themes (symbols or regexps) to be presented for selection.
@@ -3748,21 +3748,21 @@ INDEX is the name of the index variable to update, if 
any."
      ;; which can be configured by setting `minibuffer-history-variable'.
      ((minibufferp)
       (if (eq minibuffer-history-variable t)
-         (user-error "Minibuffer history is disabled for `%s'" this-command)
-       (setq history (mapcar #'consult--tofu-hide (symbol-value 
minibuffer-history-variable)))))
+          (user-error "Minibuffer history is disabled for `%s'" this-command)
+        (setq history (mapcar #'consult--tofu-hide (symbol-value 
minibuffer-history-variable)))))
      ;; Otherwise we use a mode-specific history, see `consult-mode-histories'.
      (t (when-let (found
-                  (or (seq-find (lambda (ring)
-                                  (and (derived-mode-p (car ring))
-                                       (boundp (let (c (cdr ring)) (if (consp 
c) (car c) c)))))
-                                consult-mode-histories)
-                      (user-error
-                       "No history configured for `%s', see 
`consult-mode-histories'"
-                       major-mode)))
-         (if (consp (cdr found))
-             (setq history (symbol-value (cadr found))
-                   index (caddr found))
-           (setq history (symbol-value (cdr found)))))))
+                   (or (seq-find (lambda (ring)
+                                   (and (derived-mode-p (car ring))
+                                        (boundp (let (c (cdr ring)) (if (consp 
c) (car c) c)))))
+                                 consult-mode-histories)
+                       (user-error
+                        "No history configured for `%s', see 
`consult-mode-histories'"
+                        major-mode)))
+          (if (consp (cdr found))
+              (setq history (symbol-value (cadr found))
+                    index (caddr found))
+            (setq history (symbol-value (cdr found)))))))
     (cons history index)))
 
 ;; This command has been adopted from 
https://github.com/oantolin/completing-history/.
@@ -3774,30 +3774,30 @@ as argument. See also `cape-history' from the Cape 
package."
   (interactive)
   (pcase-let*
       ((`(,history . ,index-var)
-       (or (consult--current-history history)
-           (user-error "History is empty")))
+        (or (consult--current-history history)
+            (user-error "History is empty")))
        (str (consult--local-let ((enable-recursive-minibuffers t))
-             (consult--read
-              (consult--remove-dups (if (ring-p history) (ring-elements 
history) history))
-              :prompt "History: "
-              :history t ;; disable history
-              :category ;; Report category depending on history variable
-              (and (minibufferp)
-                   (pcase minibuffer-history-variable
-                     ('extended-command-history 'command)
-                     ('buffer-name-history 'buffer)
-                     ('face-name-history 'face)
-                     ('read-envvar-name-history 'environment-variable)
-                     ('bookmark-history 'bookmark)
-                     ('file-name-history 'file)))
-              :sort nil
-              :state (consult--insertion-preview (point) (point))))))
+              (consult--read
+               (consult--remove-dups (if (ring-p history) (ring-elements 
history) history))
+               :prompt "History: "
+               :history t ;; disable history
+               :category ;; Report category depending on history variable
+               (and (minibufferp)
+                    (pcase minibuffer-history-variable
+                      ('extended-command-history 'command)
+                      ('buffer-name-history 'buffer)
+                      ('face-name-history 'face)
+                      ('read-envvar-name-history 'environment-variable)
+                      ('bookmark-history 'bookmark)
+                      ('file-name-history 'file)))
+               :sort nil
+               :state (consult--insertion-preview (point) (point))))))
     (when (minibufferp)
-      (delete-minibuffer-contents)) 
+      (delete-minibuffer-contents))
     (if index-var
-       (set index-var (if (ring-p history)
-                          (ring-member history str)
-                        (seq-position history str))))
+        (set index-var (if (ring-p history)
+                           (ring-member history str)
+                         (seq-position history str))))
     (insert (substring-no-properties str))))
 
 ;;;;; Command: consult-isearch-history