diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2006-05-05 23:19:52 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2006-05-05 23:19:52 +0000 |
| commit | d91bd17cb6e8699e64411465b84960e088e1cd10 (patch) | |
| tree | e29ab5d397d5c28c8f06074b53277326fa4ac56c /lisp/emacs-lisp | |
| parent | fc634b385b55f396dac05ba8d394762ccb5a354d (diff) | |
| download | emacs-d91bd17cb6e8699e64411465b84960e088e1cd10.tar.gz emacs-d91bd17cb6e8699e64411465b84960e088e1cd10.tar.bz2 emacs-d91bd17cb6e8699e64411465b84960e088e1cd10.zip | |
(ewoc-create, ewoc-set-hf): Use `insert'
directly instead of a lambda expression that calls it.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ewoc.el | 8 |
1 files changed, 4 insertions, 4 deletions
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) |