Mercurial > emacs
changeset 33233:c12aa82daf99
(ewoc-goto-prev, ewoc-goto-next):
Don't pass default arg to ewoc-locate.
(ewoc-collect): Return result in the right order.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 06 Nov 2000 07:13:07 +0000 |
| parents | abfd948c10d4 |
| children | 39c359a5c419 |
| files | lisp/emacs-lisp/ewoc.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/ewoc.el Mon Nov 06 07:01:36 2000 +0000 +++ b/lisp/emacs-lisp/ewoc.el Mon Nov 06 07:13:07 2000 +0000 @@ -504,7 +504,7 @@ Don't move if we are at the first element, or if EWOC is empty. Returns the node we moved to." (ewoc--set-buffer-bind-dll-let* ewoc - ((node (ewoc-locate ewoc (point) (ewoc--last-node ewoc)))) + ((node (ewoc-locate ewoc (point)))) (when node ;; If we were past the last element, first jump to it. (when (>= (point) (ewoc--node-start-marker (ewoc--node-right node))) @@ -521,7 +521,7 @@ "Move point to the ARGth next element. Returns the node (or nil if we just passed the last node)." (ewoc--set-buffer-bind-dll-let* ewoc - ((node (ewoc-locate ewoc (point) (ewoc--last-node ewoc)))) + ((node (ewoc-locate ewoc (point)))) (while (and node (> arg 0)) (setq arg (1- arg)) (setq node (ewoc--node-next dll node))) @@ -578,7 +578,7 @@ (if (apply predicate (ewoc--node-data node) args) (push (ewoc--node-data node) result)) (setq node (ewoc--node-prev dll node))) - result)) + (nreverse result))) (defun ewoc-buffer (ewoc) "Return the buffer that is associated with EWOC.