1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00

(tree-widget-value-create): Simplify last change.

This commit is contained in:
David Ponce 2005-06-16 05:39:56 +00:00
parent c25ae38012
commit 66c20a8203

View File

@ -618,14 +618,7 @@ IGNORE other arguments."
(flags (widget-get tree :tree-widget--guide-flags))
(indent (widget-get tree :indent))
children buttons)
(and indent
(null flags)
(save-restriction
(widen)
(or (bolp)
(and (eq (char-before) ?<)
(save-excursion
(backward-char) (bolp)))))
(and indent (not (widget-get tree :parent))
(insert-char ?\ indent))
(if (widget-get tree :open)
;;;; Unfolded node.