From fa7f79e8234c60ae425f7c3cf1b9486765a7111e Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sat, 7 Feb 2015 02:35:24 +0300 Subject: [PATCH] (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'. --- lisp/ChangeLog | 5 +++++ lisp/vc/vc-cvs.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 -- 2.39.2