(vc-dir-marked-only-files-and-states):

(vc-dir-child-files-and-states): Reverse the list before returning it.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0078c15944..b033bd11c9e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-dir.el b/lisp/vc-dir.el
index bd998fbac3f..87c0ce3ef90 100644
--- a/lisp/vc-dir.el
+++ b/lisp/vc-dir.el
@@ -777,7 +777,7 @@ child files."
                     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 @@ If it is a file, return the corresponding cons for the file itself."
       (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))