mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

vc-buffer-sync-fileset: Reorder some checks for speed (bug#79137)

Browse source 
* lisp/vc/vc.el (vc-buffer-sync-fileset): Check whether a
buffer's file is in one of our directories before checking
whether it exists on disk.  This should mean far fewer system
calls overall (bug#79137).
This commit is contained in:
Sean Whitton 2025-08-14 14:50:09 +01:00
parent e9800cabff
commit ea7aee894d
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/vc/vc.el
View file

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