Mercurial > emacs
changeset 103596:0c5de07aff62
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.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Fri, 26 Jun 2009 23:53:55 +0000 |
parents | de3fb78ac3df |
children | 3ce806077151 |
files | etc/NEWS lisp/ChangeLog lisp/vc-git.el lisp/vc-hg.el lisp/vc-hooks.el lisp/vc-rcs.el lisp/vc.el |
diffstat | 7 files changed, 15 insertions(+), 36 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/NEWS Fri Jun 26 23:41:43 2009 +0000 +++ b/etc/NEWS Fri Jun 26 23:53:55 2009 +0000 @@ -32,6 +32,10 @@ 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
--- a/lisp/ChangeLog Fri Jun 26 23:41:43 2009 +0000 +++ b/lisp/ChangeLog Fri Jun 26 23:53:55 2009 +0000 @@ -1,3 +1,14 @@ +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
--- a/lisp/vc-git.el Fri Jun 26 23:41:43 2009 +0000 +++ b/lisp/vc-git.el Fri Jun 26 23:53:55 2009 +0000 @@ -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)
--- a/lisp/vc-hg.el Fri Jun 26 23:41:43 2009 +0000 +++ b/lisp/vc-hg.el Fri Jun 26 23:53:55 2009 +0000 @@ -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
--- a/lisp/vc-hooks.el Fri Jun 26 23:41:43 2009 +0000 +++ b/lisp/vc-hooks.el Fri Jun 26 23:53:55 2009 +0000 @@ -911,27 +911,6 @@ (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)))
--- a/lisp/vc-rcs.el Fri Jun 26 23:41:43 2009 +0000 +++ b/lisp/vc-rcs.el Fri Jun 26 23:53:55 2009 +0000 @@ -247,14 +247,6 @@ ;; 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
--- a/lisp/vc.el Fri Jun 26 23:41:43 2009 +0000 +++ b/lisp/vc.el Fri Jun 26 23:53:55 2009 +0000 @@ -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