diff options
author | Sam Steingold <sds@gnu.org> | 2018-09-28 10:51:05 -0400 |
---|---|---|
committer | Sam Steingold <sds@gnu.org> | 2018-09-28 10:51:15 -0400 |
commit | 2d54710c36c8b5f7e0d25eefd45c318c0cb533ea (patch) | |
tree | 0d1dc7fd61bab7b3bab6de4d501177e19710e9f0 /lisp | |
parent | 06e2814e1f3a80d247675319d3c438989592fb06 (diff) | |
download | emacs-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.el | 2 |
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 |