[nongnu] elpa/git-commit 536ac9ff0d 09/10: magit-insert-section--create: Cosmetics

[ELPA Syncer]

branch: elpa/git-commit
commit 536ac9ff0de041b6b7acfa6e0279783430f8f9ed
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    magit-insert-section--create: Cosmetics
---
 lisp/magit-section.el | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index 3a36364ef9..9a6887a411 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -1412,22 +1412,21 @@ anything this time around.
       (oset obj parent magit-insert-section--parent)
       (oset obj start (if magit-section-inhibit-markers (point) 
(point-marker)))
       (oset obj hidden
-            (if-let ((value (run-hook-with-args-until-success
-                             'magit-section-set-visibility-hook obj)))
-                (eq value 'hide)
-              (if-let ((incarnation
-                        (and (not magit-section-preserve-visibility)
-                             magit-insert-section--oldroot
-                             (magit-get-section
-                              (magit-section-ident obj)
-                              magit-insert-section--oldroot))))
-                  (oref incarnation hidden)
-                (if-let ((value (magit-section-match-assoc
-                                 obj magit-section-initial-visibility-alist)))
-                    (progn (when (functionp value)
-                             (setq value (funcall value obj)))
-                           (eq value 'hide))
-                  hide))))
+            (let (set old)
+              (cond
+               ((setq set (run-hook-with-args-until-success
+                           'magit-section-set-visibility-hook obj))
+                (eq set 'hide))
+               ((setq old (and (not magit-section-preserve-visibility)
+                               magit-insert-section--oldroot
+                               (magit-get-section
+                                (magit-section-ident obj)
+                                magit-insert-section--oldroot)))
+                (oref old hidden))
+               ((setq set (magit-section-match-assoc
+                           obj magit-section-initial-visibility-alist))
+                (eq (if (functionp set) (funcall set obj) set) 'hide))
+               (hide))))
       (unless (oref obj keymap)
         (let ((type (oref obj type)))
           (oset obj keymap