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> 2014-07-19 Stefan Monnier <monnier@iro.umontreal.ca>
   
* xt-mouse.el (xterm-mouse-event): Don't assume last-click is non-nil * xt-mouse.el (xterm-mouse-event): Don't assume last-click is non-nil
......
...@@ -1132,11 +1132,12 @@ stream. Standard error output is discarded." ...@@ -1132,11 +1132,12 @@ stream. Standard error output is discarded."
(file &optional keep noquery reset-vc-info)) (file &optional keep noquery reset-vc-info))
(defun vc-bzr-shelve (name) (defun vc-bzr-shelve (name)
"Create a shelve." "Shelve the changes of the selected files."
(interactive "sShelf name: ") (interactive "sShelf name: ")
(let ((root (vc-bzr-root default-directory))) (let ((root (vc-bzr-root default-directory))
(fileset (vc-deduce-fileset)))
(when root (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)))) (vc-resynch-buffer root t t))))
(defun vc-bzr-shelve-show (name) (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