mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2007-08-09 14:42:00 +00:00
parent 9d8f43bfbf
commit a377373012
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ChangeLog
View File

@ -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>

10
lisp/vc-hooks.el
View File

@ -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)