[Emacs-diffs] trunk r117554: * lisp/vc/vc-bzr.el (vc-bzr-shelve): Make it operate on fileset.

[Stefan Monnier]

------------------------------------------------------------
revno: 117554
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2014-07-20 21:25:59 -0400
message:
  * lisp/vc/vc-bzr.el (vc-bzr-shelve): Make it operate on fileset.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/vc/vc-bzr.el              vcbzr.el-20091113204419-o5vbwnq5f7feedwu-5055

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-19 16:56:40 +0000
+++ b/lisp/ChangeLog    2014-07-21 01:25:59 +0000
@@ -1,3 +1,7 @@
+2014-07-21  Stefan Monnier  <address@hidden>
+
+       * vc/vc-bzr.el (vc-bzr-shelve): Make it operate on fileset.
+
 2014-07-19  Stefan Monnier  <address@hidden>
 
        * xt-mouse.el (xterm-mouse-event): Don't assume last-click is non-nil

=== modified file 'lisp/vc/vc-bzr.el'
--- a/lisp/vc/vc-bzr.el 2014-02-10 01:34:22 +0000
+++ b/lisp/vc/vc-bzr.el 2014-07-21 01:25:59 +0000
@@ -1132,11 +1132,12 @@
                   (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)