branch: elpa/git-commit commit 536ac9ff0de041b6b7acfa6e0279783430f8f9ed Author: Jonas Bernoulli <jo...@bernoul.li> Commit: Jonas Bernoulli <jo...@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