diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-09-05 13:37:12 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-09-05 13:37:12 -0400 |
| commit | 6ac5571c627d3f2e06ccd82a7926871065597e43 (patch) | |
| tree | 254702a680c07827cdf8dea4353659bedd67aa80 /lisp/vc/vc-dir.el | |
| parent | bcbaf6b7be2f42b29804226d3448b84e84624438 (diff) | |
| download | emacs-6ac5571c627d3f2e06ccd82a7926871065597e43.tar.gz | |
* lisp/vc/vc-dir.el (vc-dir-update): Don't burp in corner case.
Diffstat (limited to 'lisp/vc/vc-dir.el')
| -rw-r--r-- | lisp/vc/vc-dir.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |