From: Dmitry Gutov Date: Fri, 6 Feb 2015 23:35:24 +0000 (+0300) Subject: (vc-cvs-dir-status-files): Don't pass DIR to `vc-cvs-command' X-Git-Tag: emacs-25.0.90~2008^2~79 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa7f79e8234c60ae425f7c3cf1b9486765a7111e;p=emacs.git (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 ea92da89ef2..c67113f2a61 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-02-06 Dmitry Gutov + + * vc/vc-cvs.el (vc-cvs-dir-status-files): Don't pass DIR to + `vc-cvs-command' (bug#19732). + 2015-02-06 Nicolas Petton * 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 d803c16d7cf..707090a10eb 100644 --- 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