From 02ffe8e3ab1b10e1aa6c7f1ac7c011a3207ad42d Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 25 Feb 2009 04:00:08 +0000 Subject: [PATCH] (vc-dir-update): Make sure ./ is always first in the listing. --- lisp/ChangeLog | 6 +++++- lisp/vc-dir.el | 12 +++++++----- 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 17ff4093e45..415324d3d45 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,10 @@ +2009-02-25 Dan Nicolaescu + + * vc-dir.el (vc-dir-update): Make sure ./ is always first in the listing. + 2009-02-25 David Reitter - * mail/mailclient.el: declare clipboard-kill-ring-save + * mail/mailclient.el (clipboard-kill-ring-save): Declare. 2009-02-25 Kenichi Handa diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index 93e081c0f9b..d2414f9172f 100644 --- a/lisp/vc-dir.el +++ b/lisp/vc-dir.el @@ -351,13 +351,13 @@ If NOINSERT, ignore elements on ENTRIES which are not in the ewoc." ((string< (car entry1) (car entry2)))))))) ;; Insert directory entries in the right places. (let ((entry (car entries)) - (node (ewoc-nth vc-ewoc 0))) + (node (ewoc-nth vc-ewoc 0)) + (dotname (file-relative-name default-directory))) ;; Insert . if it is not present. (unless node - (let ((rd (file-relative-name default-directory))) - (ewoc-enter-last - vc-ewoc (vc-dir-create-fileinfo - rd nil nil nil (expand-file-name default-directory)))) + (ewoc-enter-last + vc-ewoc (vc-dir-create-fileinfo + dotname nil nil nil (expand-file-name default-directory))) (setq node (ewoc-nth vc-ewoc 0))) (while (and entry node) @@ -372,6 +372,8 @@ If NOINSERT, ignore elements on ENTRIES which are not in the ewoc." ;; Found the directory, find the place for the file name. (let ((nodefile (vc-dir-fileinfo->name (ewoc-data node)))) (cond + ((string= nodefile dotname) + (setq node (ewoc-next vc-ewoc node))) ((string-lessp nodefile entryfile) (setq node (ewoc-next vc-ewoc node))) ((string-equal nodefile entryfile) -- 2.39.5