mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(vc-bzr-after-dir-status): Parse the output for non

Browse Source 
existent files.
(vc-bzr-dir-status-files): New function.
This commit is contained in:
Dan Nicolaescu 2008-10-05 00:08:49 +00:00
parent 97b69a575a
commit 11b4001c8f
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2008-10-05 Dan Nicolaescu <dann@ics.uci.edu>
* vc-bzr.el (vc-bzr-after-dir-status): Parse the output for non
existent files.
(vc-bzr-dir-status-files): New function.
2008-10-04 Glenn Morris <rgm@gnu.org>
* files.el (make-temp-file): Handle empty `prefix'. (Bug#1081)

10
lisp/vc-bzr.el
View File

@ -611,6 +611,9 @@ stream. Standard error output is discarded."
("? " . unregistered)
;; No such state, but we need to distinguish this case.
("R " . renamed)
;; For a non existent file FOO, the output is:
;; bzr: ERROR: Path(s) do not exist: FOO
("bzr" . not-found)
;; Ignore "P " and "P." for pending patches.
))
(translated nil)
@ -640,6 +643,8 @@ stream. Standard error output is discarded."
(old-name (match-string 1)))
(push (list new-name 'edited
(vc-bzr-create-extra-fileinfo old-name)) result)))
;; do nothing for non existent files
((eq translated 'not-found))
(t
(push (list (buffer-substring-no-properties
(+ (point) 4)
@ -654,6 +659,11 @@ stream. Standard error output is discarded."
(vc-exec-after
`(vc-bzr-after-dir-status (quote ,update-function))))
(defun vc-bzr-dir-status-files (dir files default-state update-function)
"Return a list of conses (file . state) for DIR."
(apply 'vc-bzr-command "status" (current-buffer) 'async dir "-v" "-S" files)
(vc-exec-after
`(vc-bzr-after-dir-status (quote ,update-function))))
;;; Revision completion
(defun vc-bzr-revision-completion-table (files)