]> code.delx.au - gnu-emacs/commitdiff
Do not corrupt grep-find-ignored-files
authorDmitry Gutov <dgutov@yandex.ru>
Mon, 20 Jul 2015 01:42:53 +0000 (04:42 +0300)
committerDmitry Gutov <dgutov@yandex.ru>
Mon, 20 Jul 2015 01:42:53 +0000 (04:42 +0300)
* lisp/progmodes/project.el (project-ignores): Change the order of
the arguments to nconc, in order not to corrupt grep-find-ignored-files.

lisp/progmodes/project.el

index 437c865dc08c0a0dfdc6f48b1c4e7696ac41ac6a..44a15dc591729f26808ff984dd64d86aae2e8f9b 100644 (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)))