Commit 3c3bf6ce authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

Remove find-file-not-found-hook VC method. (Bug#2757)

* vc-hooks.el (vc-file-not-found-hook)
(vc-default-find-file-not-found-hook): Remove functions.
(find-file-not-found-functions): Do not add vc-file-not-found-hook.
* vc-rcs.el (vc-rcs-find-file-not-found-hook): Remove function.
* vc.el:
* vc-hg.el:
* vc-git.el: Do not mention find-file-not-found-hook VC method.
parent 29771094
......@@ -32,6 +32,10 @@ so we will look at it and add it to the manual.
On systems which support GVFS-Fuse, Tramp offers the new connection
methods "dav", "davs" and "obex".
** VC and related modes
*** When a file is not found, VC will not try to check it out of RCS anymore.
* Installation Changes in Emacs 23.1
......
2009-06-26 Dan Nicolaescu <dann@ics.uci.edu>
Remove find-file-not-found-hook VC method. (Bug#2757)
* vc-hooks.el (vc-file-not-found-hook)
(vc-default-find-file-not-found-hook): Remove functions.
(find-file-not-found-functions): Do not add vc-file-not-found-hook.
* vc-rcs.el (vc-rcs-find-file-not-found-hook): Remove function.
* vc.el:
* vc-hg.el:
* vc-git.el: Do not mention find-file-not-found-hook VC method.
2009-06-25 Agustín Martín <agustin.martin@hispalinux.es>
* textmodes/ispell.el: Add `ispell-looking-back' XEmacs
......
......@@ -101,7 +101,6 @@
;; - delete-file (file) OK
;; - rename-file (old new) OK
;; - find-file-hook () NOT NEEDED
;; - find-file-not-found-hook () NOT NEEDED
(eval-when-compile
(require 'cl)
......
......@@ -92,7 +92,6 @@
;; - delete-file (file) TEST IT
;; - rename-file (old new) OK
;; - find-file-hook () PROBABLY NOT NEEDED
;; - find-file-not-found-hook () PROBABLY NOT NEEDED
;; 2) Implement Stefan Monnier's advice:
;; vc-hg-registered and vc-hg-state
......
......@@ -911,27 +911,6 @@ current, and kill the buffer that visits the link."
(add-hook 'find-file-hook 'vc-find-file-hook)
;; more hooks, this time for file-not-found
(defun vc-file-not-found-hook ()
"When file is not found, try to check it out from version control.
Returns t if checkout was successful, nil otherwise.
Used in `find-file-not-found-functions'."
;; When a file does not exist, ignore cached info about it
;; from a previous visit.
;; We check that `buffer-file-name' is non-nil. It should be always
;; the case, but in conjunction with Tramp, it might be nil. M. Albinus.
(when buffer-file-name
(vc-file-clearprops buffer-file-name)
(let ((backend (vc-backend buffer-file-name)))
(when backend (vc-call-backend backend 'find-file-not-found-hook)))))
(defun vc-default-find-file-not-found-hook (backend)
;; 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)
(defun vc-kill-buffer-hook ()
"Discard VC info about a file when we kill its buffer."
(when buffer-file-name (vc-file-clearprops buffer-file-name)))
......
......@@ -247,14 +247,6 @@ When VERSION is given, perform check for that version."
;; The workfile is unchanged if rcsdiff found no differences.
(zerop status)))
(defun vc-rcs-find-file-not-found-hook ()
(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)
(let ((default-directory (file-name-directory buffer-file-name)))
(not (vc-error-occurred (vc-checkout buffer-file-name)))))))
;;;
;;; State-changing functions
......
......@@ -513,11 +513,6 @@
;; Operation called in current buffer when opening a file. This can
;; be used by the backend to setup some local variables it might need.
;;
;; - find-file-not-found-hook ()
;;
;; Operation called in current buffer when opening a non-existing file.
;; By default, this asks the user if she wants to check out the file.
;;
;; - extra-menu ()
;;
;; Return a menu keymap, the items in the keymap will appear at the
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment