Mercurial > emacs
changeset 78520:318e4215e076
(vc-default-find-file-not-found-hook): Do nothing.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 09 Aug 2007 14:42:00 +0000 |
| parents | b2a41f8ce78a |
| children | 98c39e79e082 |
| files | lisp/ChangeLog lisp/vc-hooks.el |
| diffstat | 2 files changed, 12 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Aug 09 14:39:20 2007 +0000 +++ b/lisp/ChangeLog Thu Aug 09 14:42:00 2007 +0000 @@ -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>
--- a/lisp/vc-hooks.el Thu Aug 09 14:39:20 2007 +0000 +++ b/lisp/vc-hooks.el Thu Aug 09 14:42:00 2007 +0000 @@ -838,13 +838,9 @@ (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)