# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 973494787 0
# Node ID c12aa82daf99d9260ca6dd0f02934495150c6abf
# Parent  abfd948c10d40453eef7ca2d4fdb5d88574db4a5
(ewoc-goto-prev, ewoc-goto-next):
Don't pass default arg to ewoc-locate.
(ewoc-collect): Return result in the right order.

diff -r abfd948c10d4 -r c12aa82daf99 lisp/emacs-lisp/ewoc.el
--- 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.