From b993101e36d60b7d9db9adceaba9a61063e3cbb9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 13 May 1994 07:42:34 +0000 Subject: [PATCH] (vc-registered): Use find-file-name-handler. --- lisp/vc-hooks.el | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 83fec473e07..8d7c1acdf69 100644 --- 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 -- 2.39.5