(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.

diff --git a/lisp/vc.el b/lisp/vc.el
index 4c631a3532f81da0bbe2183a5750a56a209f7501..afbf6c2d8a97f166b0c2fb24d23693f34a65f0db 100644 (file)
--- 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