procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2014-07-20 21:25:59 -04:00
parent a1edea0c88
commit 3241dc268e
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
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

7
lisp/vc/vc-bzr.el
View file

@ -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)