summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorSam Steingold <sds@gnu.org>2018-09-28 10:51:05 -0400
committerSam Steingold <sds@gnu.org>2018-09-28 10:51:15 -0400
commit2d54710c36c8b5f7e0d25eefd45c318c0cb533ea (patch)
tree0d1dc7fd61bab7b3bab6de4d501177e19710e9f0 /lisp
parent06e2814e1f3a80d247675319d3c438989592fb06 (diff)
downloademacs-2d54710c36c8b5f7e0d25eefd45c318c0cb533ea.tar.gz
emacs-2d54710c36c8b5f7e0d25eefd45c318c0cb533ea.tar.bz2
emacs-2d54710c36c8b5f7e0d25eefd45c318c0cb533ea.zip
lisp/vc/vc-git.el (vc-git-stash): Respect vc-dir marked files
Diffstat (limited to 'lisp')
-rw-r--r--lisp/vc/vc-git.el2
1 files changed, 1 insertions, 1 deletions
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