Mercurial > emacs

comparison lisp/emacs-lisp/ewoc.el @ 70601:77ae8497591f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ewoc-refresh): Compute PP once before looping.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Fri, 12 May 2006 07:27:56 +0000
parents f2d7dbf603c5
children 3441bcebaad1
comparison
equal deleted inserted replaced
70600:b9be6d21f2ac 70601:77ae8497591f
525 ((footer (ewoc--footer ewoc))) 525 ((footer (ewoc--footer ewoc)))
526 (let ((inhibit-read-only t)) 526 (let ((inhibit-read-only t))
527 (delete-region (ewoc--node-start-marker (ewoc--node-nth dll 1)) 527 (delete-region (ewoc--node-start-marker (ewoc--node-nth dll 1))
528 (ewoc--node-start-marker footer)) 528 (ewoc--node-start-marker footer))
529 (goto-char (ewoc--node-start-marker footer)) 529 (goto-char (ewoc--node-start-marker footer))
530 (let ((node (ewoc--node-nth dll 1))) 530 (let ((pp (ewoc--pretty-printer ewoc))
531 (node (ewoc--node-nth dll 1)))
531 (while (not (eq node footer)) 532 (while (not (eq node footer))
532 (set-marker (ewoc--node-start-marker node) (point)) 533 (set-marker (ewoc--node-start-marker node) (point))
533 (funcall (ewoc--pretty-printer ewoc) 534 (funcall pp (ewoc--node-data node))
534 (ewoc--node-data node))
535 (insert "\n") 535 (insert "\n")
536 (setq node (ewoc--node-next dll node))))) 536 (setq node (ewoc--node-next dll node)))))
537 (set-marker (ewoc--node-start-marker footer) (point)))) 537 (set-marker (ewoc--node-start-marker footer) (point))))
538 538
539 (defun ewoc-collect (ewoc predicate &rest args) 539 (defun ewoc-collect (ewoc predicate &rest args)