branch: elpa/git-commit commit e281dac92ec47661b12b212c4f91c3abe898f994 Author: Jonas Bernoulli <jo...@bernoul.li> Commit: Jonas Bernoulli <jo...@bernoul.li>
magit-insert-section--finish: 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 b70d38908a..564940e8f3 100644 --- a/lisp/magit-section.el +++ b/lisp/magit-section.el @@ -1459,22 +1459,21 @@ anything this time around. (put-text-property (point) next 'keymap map))) (magit-section-maybe-add-heading-map obj) (goto-char next))))) - (cond - ((eq obj magit-root-section) - (when (eq magit-section-inhibit-markers 'delay) - (setq magit-section-inhibit-markers nil) - (magit-map-sections - (lambda (section) - (oset section start (copy-marker (oref section start) t)) - (oset section end (copy-marker (oref section end) t))))) - (let ((magit-section-cache-visibility nil)) - (magit-section-show obj))) - (magit-section-insert-in-reverse - (push obj (oref (oref obj parent) children))) - ((let ((parent (oref obj parent))) - (oset parent children - (nconc (oref parent children) - (list obj)))))) + (cond ((eq obj magit-root-section) + (when (eq magit-section-inhibit-markers 'delay) + (setq magit-section-inhibit-markers nil) + (magit-map-sections + (lambda (section) + (oset section start (copy-marker (oref section start) t)) + (oset section end (copy-marker (oref section end) t))))) + (let ((magit-section-cache-visibility nil)) + (magit-section-show obj))) + (magit-section-insert-in-reverse + (push obj (oref (oref obj parent) children))) + ((let ((parent (oref obj parent))) + (oset parent children + (nconc (oref parent children) + (list obj)))))) (when magit-section-insert-in-reverse (setq magit-section-insert-in-reverse nil) (oset obj children (nreverse (oref obj children)))))