# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1146871069 0
# Node ID f97678528ae8f3750d1a8ee5e94b48d4a9e50197
# Parent  12496a44a084cf574e216ca0b6128b81e03cafa9
(ewoc-create, ewoc-set-hf): Use `insert'
directly instead of a lambda expression that calls it.

diff -r 12496a44a084 -r f97678528ae8 lisp/emacs-lisp/ewoc.el
--- a/lisp/emacs-lisp/ewoc.el	Fri May 05 23:15:29 2006 +0000
+++ b/lisp/emacs-lisp/ewoc.el	Fri May 05 23:17:49 2006 +0000
@@ -322,8 +322,8 @@
       (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 @@
   "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)))
 
 
 (provide 'ewoc)