emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/relint 943c728 08/10: Indentation fixes


From: Mattias Engdegård
Subject: [elpa] externals/relint 943c728 08/10: Indentation fixes
Date: Sun, 4 Aug 2019 13:42:48 -0400 (EDT)

branch: externals/relint
commit 943c728592481982cc62981fe7baf75ad938eedc
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    Indentation fixes
---
 relint.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/relint.el b/relint.el
index 21083e0..8759d05 100644
--- a/relint.el
+++ b/relint.el
@@ -507,13 +507,13 @@ not be evaluated safely."
 
        ;; Safe macros that expand to pure code, and their auxiliary macros.
        ((memq head '(when unless
-                      \` backquote-list*
-                      pcase pcase-let pcase-let* pcase--flip))
+                     \` backquote-list*
+                     pcase pcase-let pcase-let* pcase--flip))
         (relint--eval (macroexpand form)))
 
        ;; Functions taking a function as first argument.
        ((memq head '(apply funcall mapconcat
-                           cl-some cl-every cl-notany cl-notevery))
+                     cl-some cl-every cl-notany cl-notevery))
         (let ((fun (relint--wrap-function (relint--eval (car body))))
               (args (mapcar #'relint--eval (cdr body))))
           (condition-case nil
@@ -536,12 +536,12 @@ not be evaluated safely."
        ;; Functions taking a function as first argument,
        ;; and with functions as keyword arguments :test, :test-not, :key
        ((memq head '(cl-reduce cl-remove-if cl-remove-if-not
-                               cl-find-if cl-find-if not
-                               cl-position-if cl-position-if-not
-                               cl-count-if cl-count-if-not
-                               cl-member-if cl-member-if-not
-                               cl-assoc-if cl-assoc-if-not
-                               cl-rassoc-if cl-rassoc-if-not))
+                     cl-find-if cl-find-if not
+                     cl-position-if cl-position-if-not
+                     cl-count-if cl-count-if-not
+                     cl-member-if cl-member-if-not
+                     cl-assoc-if cl-assoc-if-not
+                     cl-rassoc-if cl-rassoc-if-not))
         (let ((fun (relint--wrap-function (relint--eval (car body))))
               (args (relint--wrap-cl-keyword-args
                      (mapcar #'relint--eval (cdr body)))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]