Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-salt.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
656 (insert (car gnus-tree-parent-child-edges)) 656 (insert (car gnus-tree-parent-child-edges))
657 ;; If the level isn't zero, then we insert some indentation. 657 ;; If the level isn't zero, then we insert some indentation.
658 (unless (zerop level) 658 (unless (zerop level)
659 (gnus-tree-indent level) 659 (gnus-tree-indent level)
660 (insert (cadr gnus-tree-parent-child-edges)) 660 (insert (cadr gnus-tree-parent-child-edges))
661 (setq col (- (setq beg (point)) (point-at-bol) 1)) 661 (setq col (- (setq beg (point)) (gnus-point-at-bol) 1))
662 ;; Draw "|" lines upwards. 662 ;; Draw "|" lines upwards.
663 (while (progn 663 (while (progn
664 (forward-line -1) 664 (forward-line -1)
665 (forward-char col) 665 (forward-char col)
666 (= (following-char) ? )) 666 (= (following-char) ? ))
680 (pop thread) (if do (1+ level) level) 680 (pop thread) (if do (1+ level) level)
681 (or dummyp dummy) dummy))))) 681 (or dummyp dummy) dummy)))))
682 682
683 (defsubst gnus-tree-indent-vertical () 683 (defsubst gnus-tree-indent-vertical ()
684 (let ((len (- (* (1+ gnus-tree-node-length) gnus-tmp-indent) 684 (let ((len (- (* (1+ gnus-tree-node-length) gnus-tmp-indent)
685 (- (point) (point-at-bol))))) 685 (- (point) (gnus-point-at-bol)))))
686 (when (> len 0) 686 (when (> len 0)
687 (insert (make-string len ? ))))) 687 (insert (make-string len ? )))))
688 688
689 (defsubst gnus-tree-forward-line (n) 689 (defsubst gnus-tree-forward-line (n)
690 (while (>= (decf n) 0) 690 (while (>= (decf n) 0)