diff options
| author | David Ponce | 2005-06-16 05:39:56 +0000 |
|---|---|---|
| committer | David Ponce | 2005-06-16 05:39:56 +0000 |
| commit | 66c20a8203fa0246961ac0f50dd1b5bfecf587d0 (patch) | |
| tree | 0f37357aa4b10d50f0aacfec5ba2a6e8128baef7 | |
| parent | c25ae380129e07c6ed714c030612eabfac680957 (diff) | |
| download | emacs-66c20a8203fa0246961ac0f50dd1b5bfecf587d0.tar.gz emacs-66c20a8203fa0246961ac0f50dd1b5bfecf587d0.zip | |
(tree-widget-value-create): Simplify last change.
| -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." | |||
| 618 | (flags (widget-get tree :tree-widget--guide-flags)) | 618 | (flags (widget-get tree :tree-widget--guide-flags)) |
| 619 | (indent (widget-get tree :indent)) | 619 | (indent (widget-get tree :indent)) |
| 620 | children buttons) | 620 | children buttons) |
| 621 | (and indent | 621 | (and indent (not (widget-get tree :parent)) |
| 622 | (null flags) | ||
| 623 | (save-restriction | ||
| 624 | (widen) | ||
| 625 | (or (bolp) | ||
| 626 | (and (eq (char-before) ?<) | ||
| 627 | (save-excursion | ||
| 628 | (backward-char) (bolp))))) | ||
| 629 | (insert-char ?\ indent)) | 622 | (insert-char ?\ indent)) |
| 630 | (if (widget-get tree :open) | 623 | (if (widget-get tree :open) |
| 631 | ;;;; Unfolded node. | 624 | ;;;; Unfolded node. |