*** /usr/local/lib/emacs/19.28/lisp/vc.el	Fri Sep  9 01:27:54 1994
--- vc.el	Tue Jul  4 19:35:13 1995
***************
*** 1106,1114 ****
         (function (lambda (f) (and
  			      (vc-name f)
  			      (vc-error-occurred
! 			       (vc-backend-checkout f nil name))))))
        )))
  
  ;; Miscellaneous other entry points
  
  ;;;###autoload
--- 1106,1124 ----
         (function (lambda (f) (and
  			      (vc-name f)
  			      (vc-error-occurred
! 			       (vc-backend-checkout f nil name)
! 			       (vc-resynch-buffer f t t) )))))
        )))
  
+ (defun vc-resynch-buffer (file &optional keep noquery)
+   "resync a buffer whatever it is the current buffer or not."
+   (let ((buffer  (get-file-buffer file)))
+     (if buffer
+ 	(save-excursion 
+ 	  (set-buffer buffer)
+ 	  (vc-resynch-window file keep noquery)))))
+ 
+ 
  ;; Miscellaneous other entry points
  
  ;;;###autoload
***************
*** 1791,1800 ****
  
  ;;; These things should probably be generally available
  
  (defun vc-file-tree-walk (func &rest args)
    "Walk recursively through default directory.
  Invoke FUNC f ARGS on each non-directory file f underneath it."
!   (vc-file-tree-walk-internal default-directory func args)
    (message "Traversing directory %s...done" default-directory))
  
  (defun vc-file-tree-walk-internal (file func args)
--- 1801,1826 ----
  
  ;;; These things should probably be generally available
  
+ ;;;###autoload
+ (defun vc-set-snapshot-root (dir)
+   "Set the root directory considered by snapshot functions."
+   (interactive (list 
+ 		(read-string (format "Snapshot root (%s) :"
+ 				     (if (boundp 'vc-snapshot-root)
+ 					 vc-snapshot-root
+ 				       default-directory))
+ 			     default-directory)))
+   (setq vc-snapshot-root dir))
+ 
  (defun vc-file-tree-walk (func &rest args)
    "Walk recursively through default directory.
  Invoke FUNC f ARGS on each non-directory file f underneath it."
!   (vc-file-tree-walk-internal 
!    (expand-file-name
!     (if (boundp 'vc-snapshot-root)
! 	vc-snapshot-root
!       default-directory))
!    func args)
    (message "Traversing directory %s...done" default-directory))
  
  (defun vc-file-tree-walk-internal (file func args)