mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

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

Browse Source 
vc-master-info, which no longer exists. Adapted to the new
parameter format of vc-parse-buffer.
This commit is contained in:
Richard M. Stallman 1995-06-16 18:11:46 +00:00
parent d7eff0e04e
commit b7011339a2
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/vc.el
View File

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