From 3241dc268ef235008cd226b7c2a7f12e6fae20da Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 20 Jul 2014 21:25:59 -0400 Subject: [PATCH] * lisp/vc/vc-bzr.el (vc-bzr-shelve): Make it operate on fileset. --- lisp/ChangeLog | 4 ++++ lisp/vc/vc-bzr.el | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bf2024ac9b6..518e5ba1a6d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-07-21 Stefan Monnier + + * vc/vc-bzr.el (vc-bzr-shelve): Make it operate on fileset. + 2014-07-19 Stefan Monnier * xt-mouse.el (xterm-mouse-event): Don't assume last-click is non-nil diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index 0730a9c72ce..4693998dfaf 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el @@ -1132,11 +1132,12 @@ stream. Standard error output is discarded." (file &optional keep noquery reset-vc-info)) (defun vc-bzr-shelve (name) - "Create a shelve." + "Shelve the changes of the selected files." (interactive "sShelf name: ") - (let ((root (vc-bzr-root default-directory))) + (let ((root (vc-bzr-root default-directory)) + (fileset (vc-deduce-fileset))) (when root - (vc-bzr-command "shelve" nil 0 nil "--all" "-m" name) + (vc-bzr-command "shelve" nil 0 (nth 1 fileset) "--all" "-m" name) (vc-resynch-buffer root t t)))) (defun vc-bzr-shelve-show (name) -- 2.39.2