[Emacs-diffs] Changes to emacs/lisp/vc-bzr.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/10/05 00:08:51

Index: vc-bzr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-bzr.el,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -b -r1.68 -r1.69
--- vc-bzr.el   2 Oct 2008 17:31:52 -0000       1.68
+++ vc-bzr.el   5 Oct 2008 00:08:51 -0000       1.69
@@ -611,6 +611,9 @@
                       ("?  " . 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 @@
                (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 @@
   (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)