(vc-lookup-triple): changed the code that used to call

vc-master-info, which no longer exists. Adapted to the new
parameter format of vc-parse-buffer.

1 files changed, 10 insertions, 4 deletions

diff --git a/lisp/vc.el b/lisp/vc.el
index 4c631a3532f..afbf6c2d8a9 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1235,10 +1235,16 @@ in all these directories.  With a prefix argument, it lists all files."
            (and (>= firstchar ?0) (<= firstchar ?9)))
          name)
         (t
-         (car (vc-master-info
-               (concat (vc-backend-subdirectory-name file) "/" vc-name-assoc-file)
-               (list (concat name "\t:\t" file "\t\\(.+\\)"))))
-         )))
+         (save-excursion
+           (set-buffer (get-buffer-create "*vc-info*"))
+           (vc-insert-file (concat 
+                            (vc-backend-subdirectory-name file) 
+                            "/" vc-name-assoc-file))
+           (prog1
+               (car (vc-parse-buffer
+                     (list (list (concat name "\t:\t" file "\t\\(.+\\)") 1))))
+             (kill-buffer "*vc-info*"))))
+         ))
 
 ;; Named-configuration entry points