From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 9 Aug 2007 14:42:00 +0000 (+0000)
Subject: (vc-default-find-file-not-found-hook): Do nothing.
X-Git-Tag: emacs-pretest-22.1.90~1027
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a37737301211b72450b98033f5f2786bc871bc7a;p=emacs.git

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

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)