From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 16 Jun 1995 18:11:46 +0000 (+0000)
Subject: (vc-lookup-triple): changed the code that used to call
X-Git-Tag: emacs-19.34~3578
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7011339a202da06ec2ba58b11618692ea8f0326;p=emacs.git

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