From: Thien-Thi Nguyen Date: Fri, 5 May 2006 23:19:52 +0000 (+0000) Subject: (ewoc-create, ewoc-set-hf): Use `insert' X-Git-Tag: emacs-pretest-22.0.90~2783 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d91bd17cb6e8699e64411465b84960e088e1cd10;p=emacs.git (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 fb36605499a..f57eba17275 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-05-06 Thien-Thi Nguyen + + * 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 * 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 085ae532a63..74931c3c34a 100644 --- 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))) (provide 'ewoc)