diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2006-05-12 07:29:42 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2006-05-12 07:29:42 +0000 |
| commit | 340d99457e1f4d0025e851ac64f4e869776b1f9c (patch) | |
| tree | 781841e9756b153db91775b29f1bdf2daeb5a8fe /lisp/emacs-lisp | |
| parent | 64c02ed0e9ad6d670aea9dd9e5696c70ce366714 (diff) | |
| download | emacs-340d99457e1f4d0025e851ac64f4e869776b1f9c.tar.gz emacs-340d99457e1f4d0025e851ac64f4e869776b1f9c.tar.bz2 emacs-340d99457e1f4d0025e851ac64f4e869776b1f9c.zip | |
(ewoc-refresh): Compute PP once before looping.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ewoc.el | 6 |
1 files changed, 3 insertions, 3 deletions
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)))) |