Commit b993101e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(vc-registered): Use find-file-name-handler.

parent 6f8b4d01
......@@ -73,14 +73,7 @@ Otherwise, not displayed.")
(defun vc-registered (file)
(let (handler handlers)
(if (boundp 'file-name-handler-alist)
(save-match-data
(setq handlers file-name-handler-alist)
(while (and (consp handlers) (null handler))
(if (and (consp (car handlers))
(stringp (car (car handlers)))
(string-match (car (car handlers)) file))
(setq handler (cdr (car handlers))))
(setq handlers (cdr handlers)))))
(setq handler (find-file-name-handler file 'vc-registered)))
(if handler
(funcall handler 'vc-registered file)
;; Search for a master corresponding to the given file
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment