* lisp/vc/vc-dir.el (vc-dir-update): Don't burp in corner case.

This commit is contained in:
Stefan Monnier 2014-09-05 13:37:12 -04:00
parent bcbaf6b7be
commit 6ac5571c62
2 changed files with 6 additions and 1 deletions

View file

@ -1,3 +1,7 @@
2014-09-05 Stefan Monnier <monnier@iro.umontreal.ca>
* vc/vc-dir.el (vc-dir-update): Don't burp in corner case.
2014-09-04 Lars Ljung <lars@matholka.se> (tiny change)
* isearch.el (isearch-yank-word-or-char): Obey superword-mode

View file

@ -433,7 +433,8 @@ If NOINSERT, ignore elements on ENTRIES which are not in the ewoc."
;; previous node was in a different directory.
(let* ((rd (file-relative-name entrydir))
(prev-node (ewoc-prev vc-ewoc node))
(prev-dir (vc-dir-node-directory prev-node)))
(prev-dir (if prev-node
(vc-dir-node-directory prev-node))))
(unless (string-equal entrydir prev-dir)
(ewoc-enter-before
vc-ewoc node (vc-dir-create-fileinfo rd nil nil nil entrydir))))