(vc-cvs-dir-status-files): Don't pass DIR to `vc-cvs-command'

Fixes: debbugs:19732
* lisp/vc/vc-cvs.el (vc-cvs-dir-status-files): Don't pass DIR to
`vc-cvs-command'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ea92da89ef26c498de75da219fe4af291306bc76..c67113f2a61fe66f45f589f2a5da9160e1023930 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-06  Dmitry Gutov  <dgutov@yandex.ru>
+
+       * vc/vc-cvs.el (vc-cvs-dir-status-files): Don't pass DIR to
+       `vc-cvs-command' (bug#19732).
+
 2015-02-06  Nicolas Petton <nicolas@petton.fr>
 
        * emacs-lisp/seq.el (seq-mapcat, seq-partition, seq-group-by): New functions.

diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el
index d803c16d7cfe20d8cef259abf410aaf90cdbed67..707090a10eb07d4a1d33635471895c0e0e6904c7 100644 (file)
--- a/lisp/vc/vc-cvs.el
+++ b/lisp/vc/vc-cvs.el
@@ -1076,7 +1076,7 @@ Query all files in DIR if files is nil."
     (if (and (not files) local (not (eq local 'only-file)))
        (vc-cvs-dir-status-heuristic dir update-function)
       (if (not files) (setq files (vc-expand-dirs (list dir) 'CVS)))
-      (vc-cvs-command (current-buffer) 'async dir "-f" "status" files)
+      (vc-cvs-command (current-buffer) 'async files "-f" "status")
       ;; Alternative implementation: use the "update" command instead of
       ;; the "status" command.
       ;; (vc-cvs-command (current-buffer) 'async