Mercurial > emacs
changeset 63467:c4d3f401bf34
eval-and-compile inlined functions so they will
be available at run-time too.
(tree-widget-value-create): Fix last change.
| author | David Ponce <david@dponce.com> |
|---|---|
| date | Wed, 15 Jun 2005 13:49:02 +0000 |
| parents | 0b89e1dbe18f |
| children | da2f0c4cb8b6 |
| files | lisp/tree-widget.el |
| diffstat | 1 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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))