From: Sam Steingold <sds@gnu.org>
Date: Fri, 28 Sep 2018 14:51:05 +0000 (-0400)
Subject: lisp/vc/vc-git.el (vc-git-stash): Respect vc-dir marked files
X-Git-Tag: emacs-27.0.90~4374
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d54710c36;p=emacs.git

lisp/vc/vc-git.el (vc-git-stash): Respect vc-dir marked files
---

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