(vc-default-find-file-not-found-hook): Do nothing.

2 files changed, 12 insertions, 9 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07e268e5036..7a9b0933d5b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,14 @@
+2007-08-09  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * vc-hooks.el (vc-default-find-file-not-found-hook): Do nothing.
+
+        * vc-rcs.el (vc-rcs-find-file-not-found-hook):
+        Move from vc-default-find-file-not-found-hook.
+
 2007-08-09  Edward O'Connor  <hober0@gmail.com> (tiny change)
 
-        * url/url-auth.el (url-basic-auth): When prompting for username
-          and password, default to the username and password in the URL.
+        * url/url-auth.el (url-basic-auth): When prompting for username
+        and password, default to the username and password in the URL.
 
 2007-08-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 052365945f2..0356e10fe5c 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -838,13 +838,9 @@ Used in `find-file-not-found-functions'."
     (if backend (vc-call-backend backend 'find-file-not-found-hook))))
 
 (defun vc-default-find-file-not-found-hook (backend)
-  (if (yes-or-no-p
-       (format "File %s was lost; check out from version control? "
-               (file-name-nondirectory buffer-file-name)))
-      (save-excursion
-        (require 'vc)
-        (setq default-directory (file-name-directory buffer-file-name))
-        (not (vc-error-occurred (vc-checkout buffer-file-name))))))
+  ;; This used to do what vc-rcs-find-file-not-found-hook does, but it only
+  ;; really makes sense for RCS.  For other backends, better not do anything.
+  nil)
 
 (add-hook 'find-file-not-found-functions 'vc-file-not-found-hook)