From 61194c8d428ff44d51f92ac69ca8252fd95469c3 Mon Sep 17 00:00:00 2001 From: David Ponce Date: Wed, 15 Jun 2005 13:49:02 +0000 Subject: [PATCH] eval-and-compile inlined functions so they will be available at run-time too. (tree-widget-value-create): Fix last change. --- lisp/tree-widget.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) 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)) -- 2.39.5