[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el

[Thien-Thi Nguyen]

Index: emacs/lisp/emacs-lisp/ewoc.el
diff -u emacs/lisp/emacs-lisp/ewoc.el:1.21 emacs/lisp/emacs-lisp/ewoc.el:1.22
--- emacs/lisp/emacs-lisp/ewoc.el:1.21  Thu May 11 08:01:02 2006
+++ emacs/lisp/emacs-lisp/ewoc.el       Fri May 12 07:27:56 2006
@@ -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))))