mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(project--vc-list-files): Optimize the Hg implementation

Browse Source 
* lisp/progmodes/project.el (project--vc-list-files):
Optimize the Hg implementation.
This commit is contained in:
Dmitry Gutov 2019-10-04 15:50:16 +03:00
parent 1039c2e2eb
commit 9a3089fea0
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/progmodes/project.el
View File

@ -322,10 +322,9 @@ backend implementation of `project-external-roots'.")
"\0" t))))
(`Hg
(let ((default-directory (file-name-as-directory dir))
args
files)
args)
;; Include unregistered.
(setq args (nconc args '("--all")))
(setq args (nconc args '("-mcardu" "--no-status" "-0")))
(when extra-ignores
(setq args (nconc args
(mapcan
@ -333,13 +332,10 @@ backend implementation of `project-external-roots'.")
(list "--exclude" i))
extra-ignores))))
(with-temp-buffer
(apply #'vc-hg-command t 0 "."
"status" args)
(goto-char (point-min))
(while (re-search-forward "^[?C]\s+\\(.*\\)$" nil t)
(setq files (cons (concat dir (match-string 1))
files))))
(nreverse files)))))
(apply #'vc-hg-command t 0 "." "status" args)
(mapcar
(lambda (s) (concat dir s))
(split-string (buffer-string) "\0" t)))))))
(cl-defmethod project-ignores ((project (head vc)) dir)
(let* ((root (cdr project))