diff options
| author | David Ponce <david@dponce.com> | 2005-06-16 05:39:56 +0000 |
|---|---|---|
| committer | David Ponce <david@dponce.com> | 2005-06-16 05:39:56 +0000 |
| commit | 66c20a8203fa0246961ac0f50dd1b5bfecf587d0 (patch) | |
| tree | 0f37357aa4b10d50f0aacfec5ba2a6e8128baef7 /lisp/tree-widget.el | |
| parent | c25ae380129e07c6ed714c030612eabfac680957 (diff) | |
| download | emacs-66c20a8203fa0246961ac0f50dd1b5bfecf587d0.tar.gz | |
(tree-widget-value-create): Simplify last change.
Diffstat (limited to 'lisp/tree-widget.el')
| -rw-r--r-- | lisp/tree-widget.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/tree-widget.el b/lisp/tree-widget.el index 448879cea5a..93b466194a1 100644 --- a/lisp/tree-widget.el +++ b/lisp/tree-widget.el @@ -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. |