Commit 3241dc26 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/vc/vc-bzr.el (vc-bzr-shelve): Make it operate on fileset.

parent a1edea0c
2014-07-21 Stefan Monnier <monnier@iro.umontreal.ca>
* vc/vc-bzr.el (vc-bzr-shelve): Make it operate on fileset.
2014-07-19 Stefan Monnier <monnier@iro.umontreal.ca>
 
* xt-mouse.el (xterm-mouse-event): Don't assume last-click is non-nil
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment