Mercurial > emacs
diff lisp/emacs-lisp/ewoc.el @ 70601:77ae8497591f
(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 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/ewoc.el Fri May 12 06:45:46 2006 +0000 +++ b/lisp/emacs-lisp/ewoc.el Fri May 12 07:27:56 2006 +0000 @@ -527,11 +527,11 @@ (delete-region (ewoc--node-start-marker (ewoc--node-nth dll 1)) (ewoc--node-start-marker footer)) (goto-char (ewoc--node-start-marker footer)) - (let ((node (ewoc--node-nth dll 1))) + (let ((pp (ewoc--pretty-printer ewoc)) + (node (ewoc--node-nth dll 1))) (while (not (eq node footer)) (set-marker (ewoc--node-start-marker node) (point)) - (funcall (ewoc--pretty-printer ewoc) - (ewoc--node-data node)) + (funcall pp (ewoc--node-data node)) (insert "\n") (setq node (ewoc--node-next dll node))))) (set-marker (ewoc--node-start-marker footer) (point))))