(vc-ignore-vc-files): New variable.

(vc-file-hook, vc-file-not-found-hook): Use it.

1 files changed, 13 insertions, 3 deletions

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 0898c2dbd10..bf752180920 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -1,6 +1,6 @@
 ;;; vc-hooks.el --- resident support for version-control
 
-;; Copyright (C) 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998 Free Software Foundation, Inc.
 
 ;; Author:     Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
@@ -116,6 +116,15 @@ See also variable `vc-consult-headers'."
   :type 'boolean
   :group 'vc)
 
+(defcustom vc-ignore-vc-files nil
+  "*If non-nil don't look for version control information when finding files.
+
+It may be useful to set this if (say) you edit files in a directory
+containing corresponding RCS files but don't have RCS available;
+similarly for other version control systems."
+  :type 'boolean
+  :group 'vc)
+
 (defun vc-mistrust-permissions (file)
   ;; Access function to the above.
   (or (eq vc-mistrust-permissions 't)
@@ -1009,7 +1018,7 @@ control system name."
   ;; Recompute whether file is version controlled,
   ;; if user has killed the buffer and revisited.
   (cond 
-   (buffer-file-name
+   ((and (not vc-ignore-vc-files) buffer-file-name)
     (vc-file-clearprops buffer-file-name)
     (cond
      ((vc-backend buffer-file-name)
@@ -1052,7 +1061,8 @@ control system name."
 (defun vc-file-not-found-hook ()
   "When file is not found, try to check it out from RCS or SCCS.
 Returns t if checkout was successful, nil otherwise."
-  (if (vc-backend buffer-file-name)
+  (if (and (not vc-ignore-vc-files) 
+           (vc-backend buffer-file-name))
       (save-excursion
         (require 'vc)
         (setq default-directory (file-name-directory (buffer-file-name)))