(ewoc-refresh): Compute PP once before looping.

2 files changed, 7 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1137154a099..a3c73415154 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-05-12  Thien-Thi Nguyen  <ttn@gnu.org>
+
+        * emacs-lisp/ewoc.el (ewoc-refresh): Compute PP once before looping.
+
 2006-05-11  Glenn Morris  <rgm@gnu.org>
 
         * calendar/calendar.el (diary-show-all-entries): Do not refer to
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index e5f1299333c..cd1f6d30b42 100644
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -527,11 +527,11 @@ number of elements needs to be refreshed."
       (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))))