From b7011339a202da06ec2ba58b11618692ea8f0326 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 16 Jun 1995 18:11:46 +0000 Subject: [PATCH] (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. --- lisp/vc.el | 14 ++++++++++---- 1 file 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 -- 2.39.2