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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0178819df3bf993ed9c2fef2800b458762405a27..504657358f192d4265dfd37a29024400d0512ab4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el
index 5e074191577d86c04a7554f800f02245957fee61..be3b1fa94b5a47822b3d4ab097bbaaca7d15d1db 100644 (file)
--- a/lisp/vc/vc-dir.el
+++ b/lisp/vc/vc-dir.el
@@ -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))))