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

lisp/ChangeLog

+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

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