[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient d024581863 2/3: Use defun indentation for cl-
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient d024581863 2/3: Use defun indentation for cl-labels binding |
Date: |
Wed, 6 Apr 2022 17:14:40 -0400 (EDT) |
branch: externals/transient
commit d02458186344ee6eddc718740d0b225f8fb1ca6b
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
Use defun indentation for cl-labels binding
---
lisp/transient.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 6006e1c03d..da925434f1 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1845,13 +1845,13 @@ value. Otherwise return CHILDREN as is."
(defun transient--flatten-suffixes (layout)
(cl-labels ((s (def)
- (cond
- ((stringp def) nil)
- ((listp def) (cl-mapcan #'s def))
- ((transient-group--eieio-childp def)
- (cl-mapcan #'s (oref def suffixes)))
- ((transient-suffix--eieio-childp def)
- (list def)))))
+ (cond
+ ((stringp def) nil)
+ ((listp def) (cl-mapcan #'s def))
+ ((transient-group--eieio-childp def)
+ (cl-mapcan #'s (oref def suffixes)))
+ ((transient-suffix--eieio-childp def)
+ (list def)))))
(cl-mapcan #'s layout)))
(defun transient--init-child (levels spec)