Mercurial > emacs
changeset 12281:ba3d2da14bca
(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.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 16 Jun 1995 18:11:46 +0000 |
parents | b33cc6583bb9 |
children | 586e3ea81792 |
files | lisp/vc.el |
diffstat | 1 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Fri Jun 16 18:04:47 1995 +0000 +++ b/lisp/vc.el Fri Jun 16 18:11:46 1995 +0000 @@ -1235,10 +1235,16 @@ (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