Mercurial > emacs

changeset 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 b9be6d21f2ac
children 19f1d69b1555
files lisp/emacs-lisp/ewoc.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
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))))