/[emacs]/emacs/lisp/tree-widget.el
ViewVC logotype

Diff of /emacs/lisp/tree-widget.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by dpe, Wed Jun 15 13:49:02 2005 UTC revision 1.6 by dpe, Thu Jun 16 05:39:56 2005 UTC
# Line 618  IGNORE other arguments." Line 618  IGNORE other arguments."
618           (flags (widget-get tree :tree-widget--guide-flags))           (flags (widget-get tree :tree-widget--guide-flags))
619           (indent (widget-get tree :indent))           (indent (widget-get tree :indent))
620           children buttons)           children buttons)
621      (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)))))  
622           (insert-char ?\  indent))           (insert-char ?\  indent))
623      (if (widget-get tree :open)      (if (widget-get tree :open)
624  ;;;; Unfolded node.  ;;;; Unfolded node.

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26