*** /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
***************
*** 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)