# HG changeset patch
# User David Ponce <david@dponce.com>
# Date 1118843342 0
# Node ID c4d3f401bf3432de2db90ae491ef46e019ce3374
# Parent  0b89e1dbe18f1b837927701d202c90a74b4b2b60
eval-and-compile inlined functions so they will
be available at run-time too.
(tree-widget-value-create): Fix last change.

diff -r 0b89e1dbe18f -r c4d3f401bf34 lisp/tree-widget.el
--- a/lisp/tree-widget.el	Wed Jun 15 13:48:31 2005 +0000
+++ b/lisp/tree-widget.el	Wed Jun 15 13:49:02 2005 +0000
@@ -174,7 +174,7 @@
 
 ;;; Image support
 ;;
-(eval-when-compile ;; GNU Emacs/XEmacs compatibility stuff
+(eval-and-compile ;; GNU Emacs/XEmacs compatibility stuff
   (cond
    ;; XEmacs
    ((featurep 'xemacs)
@@ -616,9 +616,17 @@
          (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)))
+         (indent (widget-get tree :indent))
          children buttons)
-    (and (null flags) indent (insert-char ?\  indent))
+    (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))