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

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 83fec473e07239692de4ce095cc70cc2c53c0248..8d7c1acdf691b017aa8f0fe868bcc7c24dd8fd5d 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -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