mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

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

Browse Source 
(vc-dir-child-files-and-states): Reverse the list before returning it.
This commit is contained in:
Dan Nicolaescu 2008-08-25 15:14:52 +00:00
parent 0d80bf2919
commit 9c6c6d1fed
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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'.

4
lisp/vc-dir.el
View File

@ -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))