Mercurial > emacs
changeset 97696:5d466e3c0ab7
(vc-dir-marked-only-files-and-states):
(vc-dir-child-files-and-states): Reverse the list before returning it.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 25 Aug 2008 15:14:52 +0000 |
| parents | 931ebb532670 |
| children | 04fe7f4789da |
| files | lisp/ChangeLog lisp/vc-dir.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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'.
--- 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))