From: David Ponce <david@dponce.com>
Date: Wed, 15 Jun 2005 13:49:02 +0000 (+0000)
Subject: eval-and-compile inlined functions so they will
X-Git-Tag: emacs-pretest-22.0.90~8912
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61194c8d428ff44d51f92ac69ca8252fd95469c3;p=emacs.git

eval-and-compile inlined functions so they will
be available at run-time too.
(tree-widget-value-create): Fix last change.
---

diff --git a/lisp/tree-widget.el b/lisp/tree-widget.el
index ea49a6f07f3..448879cea5a 100644
--- a/lisp/tree-widget.el
+++ b/lisp/tree-widget.el
@@ -174,7 +174,7 @@ no-handle    an invisible handle
 
 ;;; 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 @@ IGNORE other arguments."
          (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))