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 | |
| parent | 64c02ed0e9ad6d670aea9dd9e5696c70ce366714 (diff) | |
| download | emacs-340d99457e1f4d0025e851ac64f4e869776b1f9c.tar.gz | |
(ewoc-refresh): Compute PP once before looping.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/ewoc.el | 6 |
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)))) |