Mercurial > emacs

changeset 7483:dfd719c64907

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-registered): Use find-file-name-handler.
author Richard M. Stallman <rms@gnu.org>
date Fri, 13 May 1994 07:42:34 +0000
parents 8193d122cf6e
children 5a10d0a7c8a1
files lisp/vc-hooks.el
diffstat 1 files changed, 1 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-hooks.el	Fri May 13 07:18:38 1994 +0000
+++ b/lisp/vc-hooks.el	Fri May 13 07:42:34 1994 +0000
@@ -73,14 +73,7 @@
 (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