(ewoc--create): No longer take

HEADER and FOOTER args.  Update unique caller.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a617c3d0794b91f7cb6faa27d7a534d680ac23a..888d793e621317b52aa7856271835b8f9ca4b686 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-27  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * emacs-lisp/ewoc.el (ewoc--create): No longer
+       take HEADER and FOOTER args.  Update unique caller.
+
 2006-05-27  Mathias Dahl  <mathias.dahl@gmail.com>
 
        * dired.el (dired-mode-map): Change `tumme-tag-remove' to

diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index 6f14fb37cf5fe46173d5a806cbb919fd8e330348..d1ededc583de99f5c779487fd8fb128bacf3fe4a 100644 (file)
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -183,8 +183,7 @@ and (ewoc--node-nth -1) returns the last node."
 
 (defstruct (ewoc
            (:constructor nil)
-           (:constructor ewoc--create
-                         (buffer pretty-printer header footer dll))
+           (:constructor ewoc--create (buffer pretty-printer dll))
            (:conc-name ewoc--))
   buffer pretty-printer header footer dll last-node)
 
@@ -280,9 +279,9 @@ respectively, of the ewoc."
          (dll (progn (setf (ewoc--node-right dummy-node) dummy-node)
                      (setf (ewoc--node-left dummy-node) dummy-node)
                      dummy-node))
-         (new-ewoc
-          (ewoc--create (current-buffer)
-                        pretty-printer nil nil dll))
+         (new-ewoc (ewoc--create (current-buffer)
+                                 pretty-printer
+                                 dll))
          (pos (point))
          head foot)
     (ewoc--set-buffer-bind-dll new-ewoc