*** ~/src/emacs/current/lisp/vc-arch.el	Wed Aug 25 00:27:47 2004
--- ~/src/emacs/current/lisp/vc-arch.el.orig	Wed Aug 25 17:19:14 2004
***************
*** 76,81 ****
--- 76,83 ----
  ;;;###autoload     (while (and (stringp dir)
  ;;;###autoload                 (not (equal
  ;;;###autoload                       dir (setq dir (file-name-directory dir))))
+ ;;;###autoload                 ;; Avoid searching no existing computer on Windowz.
+ ;;;###autoload                 (not (string-match "^\\(//\\|\\\\\\\\\\)$" dir))
  ;;;###autoload                 dir)
  ;;;###autoload       (setq dir (if (file-directory-p
  ;;;###autoload                      (expand-file-name "{arch}" dir))

*** c:/usr/emacs/current/lisp/vc-mcvs.el	Wed Aug 25 00:25:45 2004
--- c:/home/kobayays/src/emacs-ime/lisp/vc-mcvs.el	Wed Aug 25 17:19:52 2004
***************
*** 118,123 ****
--- 118,125 ----
  ;;;###autoload     (while (and (stringp dir)
  ;;;###autoload                 (not (equal
  ;;;###autoload                       dir (setq dir (file-name-directory dir))))
+ ;;;###autoload                 ;; avoid searching no existing computer on Windowz.
+ ;;;###autoload                 (not (string-match "^\\(//\\|\\\\\\\\\\)$" dir))
  ;;;###autoload                 dir)
  ;;;###autoload       (setq dir (if (file-directory-p
  ;;;###autoload                      (expand-file-name "MCVS/CVS" dir))