[Emacs-diffs] Changes to emacs/lisp/vc-rcs.el,v [EMACS_22_BASE]

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Stefan Monnier <monnier>        07/08/09 14:39:21

Index: vc-rcs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-rcs.el,v
retrieving revision 1.50.2.1
retrieving revision 1.50.2.2
diff -u -b -r1.50.2.1 -r1.50.2.2
--- vc-rcs.el   25 Jul 2007 04:46:54 -0000      1.50.2.1
+++ vc-rcs.el   9 Aug 2007 14:39:20 -0000       1.50.2.2
@@ -225,6 +225,14 @@
     ;; 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