(ewoc-create, ewoc-set-hf): Use `insert'

directly instead of a lambda expression that calls it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb36605499ac6ae072e4ba1b1d77ed85beead23f..f57eba17275c626e6906564560764d614f7de8a1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-06  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * emacs-lisp/ewoc.el (ewoc-create, ewoc-set-hf): Use `insert'
+       directly instead of a lambda expression that calls it.
+
 2006-05-06  Kim F. Storm  <storm@cua.dk>
 
        * avoid.el (mouse-avoidance-point-position): Use posn-at-point

diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index 085ae532a632fc4cb4f360447d4aa0592914bad5..74931c3c34a14f9c05f2a5fec05ce314b00d56a7 100644 (file)
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -322,8 +322,8 @@ be inserted at the bottom of the ewoc."
       (unless header (setq header ""))
       (unless footer (setq footer ""))
       (setf (ewoc--node-start-marker dll) (copy-marker pos))
-      (let ((foot (ewoc--create-node footer (lambda (x) (insert footer)) pos))
-           (head (ewoc--create-node header (lambda (x) (insert header)) pos)))
+      (let ((foot (ewoc--create-node footer 'insert pos))
+           (head (ewoc--create-node header 'insert pos)))
        (ewoc--node-enter-first dll head)
        (ewoc--node-enter-last  dll foot)
        (setf (ewoc--header new-ewoc) head)
@@ -601,8 +601,8 @@ Return nil if the buffer has been deleted."
   "Set the HEADER and FOOTER of EWOC."
   (setf (ewoc--node-data (ewoc--header ewoc)) header)
   (setf (ewoc--node-data (ewoc--footer ewoc)) footer)
-  (ewoc--refresh-node (lambda (x) (insert header)) (ewoc--header ewoc))
-  (ewoc--refresh-node (lambda (x) (insert footer)) (ewoc--footer ewoc)))
+  (ewoc--refresh-node 'insert (ewoc--header ewoc))
+  (ewoc--refresh-node 'insert (ewoc--footer ewoc)))
 
 \f
 (provide 'ewoc)