procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
David Ponce 2005-06-16 05:39:56 +00:00
parent c25ae38012
commit 66c20a8203
1 changed files with 1 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/tree-widget.el
View file

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