From 9c6c6d1fede2bb783c6bdf8b6f0e9c301e10839d Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 25 Aug 2008 15:14:52 +0000 Subject: [PATCH] (vc-dir-marked-only-files-and-states): (vc-dir-child-files-and-states): Reverse the list before returning it. --- lisp/ChangeLog | 5 +++++ lisp/vc-dir.el | 4 ++-- 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 + + * 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 * 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)) -- 2.39.5