From: Stefan Monnier Date: Fri, 5 Sep 2014 17:37:12 +0000 (-0400) Subject: * lisp/vc/vc-dir.el (vc-dir-update): Don't burp in corner case. X-Git-Tag: emacs-24.3.94~52 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ac5571c627d3f2e06ccd82a7926871065597e43;p=emacs.git * lisp/vc/vc-dir.el (vc-dir-update): Don't burp in corner case. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0178819df3b..504657358f1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-09-05 Stefan Monnier + + * vc/vc-dir.el (vc-dir-update): Don't burp in corner case. + 2014-09-04 Lars Ljung (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 5e074191577..be3b1fa94b5 100644 --- 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))))