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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0078c159441aba0d7aaee133c59f5c50fa15397..b033bd11c9e2339628c289f7df985a45c2d92355 100644 (file)
--- 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 bd998fbac3fafc3f6988cec8b31a11a0a241656b..87c0ce3ef90abb6c4d08ddd64e08b70394d7b737 100644 (file)
--- 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))