From: Thien-Thi Nguyen Date: Fri, 12 May 2006 07:29:42 +0000 (+0000) Subject: (ewoc-refresh): Compute PP once before looping. X-Git-Tag: emacs-pretest-22.0.90~2612 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=340d99457e1f4d0025e851ac64f4e869776b1f9c;p=emacs.git (ewoc-refresh): Compute PP once before looping. --- 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 + + * emacs-lisp/ewoc.el (ewoc-refresh): Compute PP once before looping. + 2006-05-11 Glenn Morris * 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))))