# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1219677292 0
# Node ID 5d466e3c0ab7b905040e9e4f878a8fc9287ce3d5
# Parent  931ebb532670e7d432c65db8cf70a3af8e086bcb
(vc-dir-marked-only-files-and-states):
(vc-dir-child-files-and-states): Reverse the list before returning it.

diff -r 931ebb532670 -r 5d466e3c0ab7 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Aug 25 07:49:19 2008 +0000
+++ b/lisp/ChangeLog	Mon Aug 25 15:14:52 2008 +0000
@@ -1,3 +1,8 @@
+2008-08-25  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-dir.el (vc-dir-marked-only-files-and-states):
+	(vc-dir-child-files-and-states): Reverse the list before returning it.
+
 2008-08-24  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/dbus.el (dbus-introspect): Use `dbus-call-method-non-blocking'.
diff -r 931ebb532670 -r 5d466e3c0ab7 lisp/vc-dir.el
--- a/lisp/vc-dir.el	Mon Aug 25 07:49:19 2008 +0000
+++ b/lisp/vc-dir.el	Mon Aug 25 15:14:52 2008 +0000
@@ -777,7 +777,7 @@
 		    result)
 	      (setq crt (ewoc-next vc-ewoc crt)))
 	  (setq crt (ewoc-next vc-ewoc crt)))))
-    result))
+    (nreverse result)))
 
 (defun vc-dir-child-files-and-states ()
   "Return the list of conses (FILE . STATE) for child files of the current entry if it's a directory.
@@ -802,7 +802,7 @@
       (push
        (cons (expand-file-name (vc-dir-fileinfo->name crt-data))
 	     (vc-dir-fileinfo->state crt-data)) result))
-    result))
+    (nreverse result)))
 
 (defun vc-dir-recompute-file-state (fname def-dir)
   (let* ((file-short (file-relative-name fname def-dir))