[Emacs-diffs] Changes to emacs/lisp/tree-widget.el

[David Ponce]

Index: emacs/lisp/tree-widget.el
diff -c emacs/lisp/tree-widget.el:1.4 emacs/lisp/tree-widget.el:1.5
*** emacs/lisp/tree-widget.el:1.4       Wed Jun 15 08:19:19 2005
--- emacs/lisp/tree-widget.el   Wed Jun 15 13:49:02 2005
***************
*** 174,180 ****
  
  ;;; Image support
  ;;
! (eval-when-compile ;; GNU Emacs/XEmacs compatibility stuff
    (cond
     ;; XEmacs
     ((featurep 'xemacs)
--- 174,180 ----
  
  ;;; Image support
  ;;
! (eval-and-compile ;; GNU Emacs/XEmacs compatibility stuff
    (cond
     ;; XEmacs
     ((featurep 'xemacs)
***************
*** 616,624 ****
           (widget-glyph-enable widget-image-enable)           ; XEmacs
           (node (tree-widget-node tree))
           (flags (widget-get tree :tree-widget--guide-flags))
!          (indent (and (bolp) (widget-get tree :indent)))
           children buttons)
!     (and (null flags) indent (insert-char ?\  indent))
      (if (widget-get tree :open)
  ;;;; Unfolded node.
          (let ((args     (widget-get tree :args))
--- 616,632 ----
           (widget-glyph-enable widget-image-enable)           ; XEmacs
           (node (tree-widget-node tree))
           (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)))))
!          (insert-char ?\  indent))
      (if (widget-get tree :open)
  ;;;; Unfolded node.
          (let ((args     (widget-get tree :args))