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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
