1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

Do not corrupt grep-find-ignored-files

* lisp/progmodes/project.el (project-ignores): Change the order of
the arguments to nconc, in order not to corrupt grep-find-ignored-files.
This commit is contained in:
Dmitry Gutov 2015-07-20 04:42:53 +03:00
parent 5330a45ebf
commit 057f93499e

View file

@ -108,7 +108,6 @@ end it with `/'."
(cl-defmethod project-ignores ((project (head vc)))
(nconc
(cl-call-next-method)
(let* ((dir (cdr project))
(backend (vc-responsible-backend dir)))
(mapcar
@ -116,7 +115,8 @@ end it with `/'."
(if (string-match "\\`/" entry)
(replace-match "./" t t entry)
entry))
(vc-call-backend backend 'ignore-completion-table dir)))))
(vc-call-backend backend 'ignore-completion-table dir)))
(cl-call-next-method)))
(defun project-ask-user (dir)
(cons 'user (read-directory-name "Project root: " dir nil t)))