diff options
| -rw-r--r-- | lisp/vc-hooks.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index bbaf0cfed08..36bf47a9648 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -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 @@ the make-backup-files variable. Otherwise, prevents backups being made.") ;;; 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 @@ the make-backup-files variable. Otherwise, prevents backups being made.") (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" |