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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07e268e5036ba7ff8c7c7c3f1e40d3a8f15e8934..7a9b0933d5b337b3feaea3a76f013a8265508438 100644 (file)
--- 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 052365945f232bc030b1733b8b0de8b5d872e6a3..0356e10fe5cbdc8322095467641a45ff394f4efd 100644 (file)
--- 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)