diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index f2972f10e6a..5d8c3f1eeb8 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -2506,14 +2506,15 @@ buffers whose files exist on disk. Otherwise it syncs all of them." (lambda (buf) (and-let* ((file (buffer-local-value 'buffer-file-name buf)) - ((or missing-in-dirs (file-exists-p file))) ((cl-some (if not-essential (lambda (dir) ;; For speed (bug#79137). (string-prefix-p dir file)) (lambda (dir) (file-in-directory-p file dir))) - dirs))))))))) + dirs)) + ((or missing-in-dirs + (file-exists-p file)))))))))) (dolist (buf buffers) (with-current-buffer buf (vc-buffer-sync not-essential)))))