Mercurial > emacs
comparison lisp/emacs-lisp/ewoc.el @ 93933:7f73d8c73d92
(ewoc-collect): Return results in the correct order.
| author | Alexandre Julliard <julliard@winehq.org> |
|---|---|
| date | Wed, 09 Apr 2008 18:50:34 +0000 |
| parents | 78ee6fae0e41 |
| children | 90a2847062be |
comparison
equal
deleted
inserted
replaced
| 93932:20eb97f6a066 | 93933:7f73d8c73d92 |
|---|---|
| 545 result) | 545 result) |
| 546 (while (not (eq node header)) | 546 (while (not (eq node header)) |
| 547 (if (apply predicate (ewoc--node-data node) args) | 547 (if (apply predicate (ewoc--node-data node) args) |
| 548 (push (ewoc--node-data node) result)) | 548 (push (ewoc--node-data node) result)) |
| 549 (setq node (ewoc--node-prev dll node))) | 549 (setq node (ewoc--node-prev dll node))) |
| 550 (nreverse result))) | 550 result)) |
| 551 | 551 |
| 552 (defun ewoc-buffer (ewoc) | 552 (defun ewoc-buffer (ewoc) |
| 553 "Return the buffer that is associated with EWOC. | 553 "Return the buffer that is associated with EWOC. |
| 554 Return nil if the buffer has been deleted." | 554 Return nil if the buffer has been deleted." |
| 555 (let ((buf (ewoc--buffer ewoc))) | 555 (let ((buf (ewoc--buffer ewoc))) |