From 2d54710c36c8b5f7e0d25eefd45c318c0cb533ea Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Fri, 28 Sep 2018 10:51:05 -0400 Subject: [PATCH] lisp/vc/vc-git.el (vc-git-stash): Respect vc-dir marked files --- lisp/vc/vc-git.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index ca457fb3d1e..03afce51709 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -1480,7 +1480,7 @@ This command shares argument histories with \\[rgrep] and \\[grep]." (interactive "sStash name: ") (let ((root (vc-git-root default-directory))) (when root - (vc-git--call nil "stash" "save" name) + (apply #'vc-git--call nil "stash" "push" "-m" name (vc-dir-marked-files)) (vc-resynch-buffer root t t)))) (defvar vc-git-stash-read-history nil -- 2.39.5