Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3241dc26
Commit
3241dc26
authored
Jul 20, 2014
by
Stefan Monnier
Browse files
* lisp/vc/vc-bzr.el (vc-bzr-shelve): Make it operate on fileset.
parent
a1edea0c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
3 deletions
+8
-3
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/vc/vc-bzr.el
lisp/vc/vc-bzr.el
+4
-3
No files found.
lisp/ChangeLog
View file @
3241dc26
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
...
...
lisp/vc/vc-bzr.el
View file @
3241dc26
...
...
@@ -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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment