/[emacs]/emacs/lisp/tree-widget.el
ViewVC logotype

Diff of /emacs/lisp/tree-widget.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by dpe, Wed Jun 15 08:19:19 2005 UTC revision 1.5 by dpe, Wed Jun 15 13:49:02 2005 UTC
# Line 174  no-handle    an invisible handle Line 174  no-handle    an invisible handle
174    
175  ;;; Image support  ;;; Image support
176  ;;  ;;
177  (eval-when-compile ;; GNU Emacs/XEmacs compatibility stuff  (eval-and-compile ;; GNU Emacs/XEmacs compatibility stuff
178    (cond    (cond
179     ;; XEmacs     ;; XEmacs
180     ((featurep 'xemacs)     ((featurep 'xemacs)
# Line 616  IGNORE other arguments." Line 616  IGNORE other arguments."
616           (widget-glyph-enable widget-image-enable)           ; XEmacs           (widget-glyph-enable widget-image-enable)           ; XEmacs
617           (node (tree-widget-node tree))           (node (tree-widget-node tree))
618           (flags (widget-get tree :tree-widget--guide-flags))           (flags (widget-get tree :tree-widget--guide-flags))
619           (indent (and (bolp) (widget-get tree :indent)))           (indent (widget-get tree :indent))
620           children buttons)           children buttons)
621      (and (null flags) indent (insert-char ?\  indent))      (and indent
622             (null flags)
623             (save-restriction
624               (widen)
625               (or (bolp)
626                   (and (eq (char-before) ?<)
627                        (save-excursion
628                          (backward-char) (bolp)))))
629             (insert-char ?\  indent))
630      (if (widget-get tree :open)      (if (widget-get tree :open)
631  ;;;; Unfolded node.  ;;;; Unfolded node.
632          (let ((args     (widget-get tree :args))          (let ((args     (widget-get tree :args))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26