From 21454777281247d97814ce5fb64f4afe39fab5da Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sun, 3 Jan 2021 17:31:31 +0100 Subject: [PATCH] magit-describe-section-briefly: Show content beginning if any --- lisp/magit-section.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/magit-section.el b/lisp/magit-section.el index bd4f769983..ae05134cee 100644 --- a/lisp/magit-section.el +++ b/lisp/magit-section.el @@ -781,7 +781,7 @@ Sections at higher levels are hidden." With a prefix argument show the section identity instead of the section lineage. This command is intended for debugging purposes." (interactive (list (magit-current-section) current-prefix-arg)) - (let ((str (format "#<%s %S %S %s-%s>" + (let ((str (format "#<%s %S %S %s-%s%s>" (eieio-object-class section) (let ((val (oref section value))) (cond ((stringp val) @@ -796,6 +796,9 @@ section lineage. This command is intended for debugging purposes." (apply #'vector (magit-section-lineage section))) (when-let ((m (oref section start))) (marker-position m)) + (if-let ((m (oref section content))) + (format "[%s-]" (marker-position m)) + "") (when-let ((m (oref section end))) (marker-position m))))) (if (called-interactively-p 'any)