174 |
|
|
175 |
;;; Image support |
;;; Image support |
176 |
;; |
;; |
177 |
(eval-when-compile ;; GNU Emacs/XEmacs compatibility stuff |
(eval-and-compile ;; GNU Emacs/XEmacs compatibility stuff |
178 |
(cond |
(cond |
179 |
;; XEmacs |
;; XEmacs |
180 |
((featurep 'xemacs) |
((featurep 'xemacs) |
616 |
(widget-glyph-enable widget-image-enable) ; XEmacs |
(widget-glyph-enable widget-image-enable) ; XEmacs |
617 |
(node (tree-widget-node tree)) |
(node (tree-widget-node tree)) |
618 |
(flags (widget-get tree :tree-widget--guide-flags)) |
(flags (widget-get tree :tree-widget--guide-flags)) |
619 |
(indent (and (bolp) (widget-get tree :indent))) |
(indent (widget-get tree :indent)) |
620 |
children buttons) |
children buttons) |
621 |
(and (null flags) indent (insert-char ?\ indent)) |
(and indent |
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)) |
630 |
(if (widget-get tree :open) |
(if (widget-get tree :open) |
631 |
;;;; Unfolded node. |
;;;; Unfolded node. |
632 |
(let ((args (widget-get tree :args)) |
(let ((args (widget-get tree :args)) |