Changeset 4200 for trunk/lisp/emacs-lisp/ewoc.el
- Timestamp:
- 04/07/07 15:49:28 (2 years ago)
- Files:
-
- trunk/lisp/emacs-lisp/ewoc.el (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/emacs-lisp/ewoc.el
r4190 r4200 192 192 (setq node (ewoc--node-right node)))))) 193 193 194 (defun ewoc--insert-new-node (node data pretty-printer )194 (defun ewoc--insert-new-node (node data pretty-printer dll) 195 195 "Insert before NODE a new node for DATA, displayed by PRETTY-PRINTER. 196 Fourth arg DLL -- from `(ewoc--dll EWOC)' -- is for internal purposes. 196 197 Call PRETTY-PRINTER with point at NODE's start, thus pushing back 197 198 NODE and leaving the new node's start there. Return the new node." … … 263 264 (unless footer (setq footer "")) 264 265 (setf (ewoc--node-start-marker dll) (copy-marker pos) 265 foot (ewoc--insert-new-node dll footer hf-pp )266 head (ewoc--insert-new-node foot header hf-pp )266 foot (ewoc--insert-new-node dll footer hf-pp dll) 267 head (ewoc--insert-new-node foot header hf-pp dll) 267 268 (ewoc--hf-pp new-ewoc) hf-pp 268 269 (ewoc--footer new-ewoc) foot … … 302 303 Return the new node." 303 304 (ewoc--set-buffer-bind-dll ewoc 304 (ewoc--insert-new-node node data (ewoc--pretty-printer ewoc) )))305 (ewoc--insert-new-node node data (ewoc--pretty-printer ewoc) dll))) 305 306 306 307 (defun ewoc-next (ewoc node)
