diff options
| author | David Ponce <david@dponce.com> | 2005-06-15 13:49:02 +0000 |
|---|---|---|
| committer | David Ponce <david@dponce.com> | 2005-06-15 13:49:02 +0000 |
| commit | 61194c8d428ff44d51f92ac69ca8252fd95469c3 (patch) | |
| tree | 5ace8aa3d8b5a9e128ad032babe74f5de3e17551 /lisp/tree-widget.el | |
| parent | 3b2f3d1a0a63b5460e597569a01649606c66e4df (diff) | |
| download | emacs-61194c8d428ff44d51f92ac69ca8252fd95469c3.tar.gz | |
eval-and-compile inlined functions so they will
be available at run-time too.
(tree-widget-value-create): Fix last change.
Diffstat (limited to 'lisp/tree-widget.el')
| -rw-r--r-- | lisp/tree-widget.el | 14 |
1 files 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)) |