Mercurial > emacs
changeset 1457:7f3e86c53165
(vc-registered): Look for handler only if file-name-handler-alist is bound.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 Oct 1992 18:43:33 +0000 |
| parents | 5f42c7680da7 |
| children | ef32d654351e |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 12 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Tue Oct 20 07:05:38 1992 +0000 +++ b/lisp/vc-hooks.el Tue Oct 20 18:43:33 1992 +0000 @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Version: 4.0 -;; $Id: vc-hooks.el,v 1.3 1992/09/27 00:45:57 roland Exp rms $ +;; $Id: vc-hooks.el,v 1.4 1992/10/20 06:44:21 rms Exp rms $ ;; This file is part of GNU Emacs. @@ -65,14 +65,16 @@ ;;; actual version-control code starts here (defun vc-registered (file) - (let (handler (handlers file-name-handler-alist)) - (save-match-data - (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)))) + (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))))) (if handler (funcall handler 'vc-registered file) ;; Search for a master corresponding to the given file @@ -96,8 +98,7 @@ (file-attributes trial))))) (throw 'found (cons trial (cdr s))))))) vc-master-templates) - nil) - )))) + nil))))) (defun vc-backend-deduce (file) "Return the version-control type of a file, nil if it is not registered"