Re: Slow access to files using UNC path

[storm@cua.dk (Kim F. Storm)]

Dhruva Krishnamurthy <dhruva.krishnamurthy@gmail.com> writes:

> + (defvar vc-hostname-fs-path-re "\\`\\([\\/][\\/]\\|/net/\\|/afs/\\)"
> +   "Regex variable used to avoid determining whether file is under vc-arch
> + or vc-mcvs. The default regexp prevents the determination of type of vc for
> + folders in UNC, net and afs. This speeds up opening of files by not trying to
> + determine whether file is under vc. This can be modified by user to match a 
> + different path or paths")

In Emacs, a 'path' is something like load-path, and we never use the
term 'path' for a directory name or file name.

IMO, a better name would be something like `vc-ignore-file-re'.

(defvar vc-ignore-file-re "\\`\\([\\/][\\/]\\|/net/\\|/afs/\\)"
  "Regular expression matching file names that are not under vc control.
Specifically, it is used to avoid determining whether file is under vc-arch
or vc-mcvs. The default regexp prevents the determination of type of vc for
folders in UNC, net and afs. This speeds up opening of files by not trying to
determine whether file is under vc. This can be modified by user to match a 
different directory or file names.")


BTW, I don't understand why this is specific for vc-arch and vc-mcvs ?






> + 
>   (defcustom vc-handled-backends '(RCS CVS SVN SCCS Arch MCVS)
>     ;; Arch and MCVS come last because they are per-tree rather than per-dir.
>     "*List of version control backends for which VC will be used.
> *** D:/tmp/cvs/emacs/lisp/vc-mcvs.el	2004-05-31 14:05:26.938250000 +0530
> --- vc-mcvs.el	2004-09-08 12:07:35.548205800 +0530
> *************** This is only meaningful if you don't use
> *** 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 vc-hostname-fs-path-re dir))
>   ;;;###autoload                 dir)
>   ;;;###autoload       (setq dir (if (file-directory-p
>   ;;;###autoload                      (expand-file-name "MCVS/CVS" dir))
> *** D:/tmp/cvs/emacs/lisp/vc-arch.el	2004-09-08 09:35:36.187974400 +0530
> --- vc-arch.el	2004-09-08 12:07:35.608295200 +0530
> ***************
> *** 77,82 ****
> --- 77,84 ----
>   ;;;###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 vc-hostname-fs-path-re dir))
>   ;;;###autoload                 dir)
>   ;;;###autoload       (setq dir (if (file-directory-p
>   ;;;###autoload                      (expand-file-name "{arch}" dir))
> _______________________________________________
> Emacs-devel mailing list
> Emacs-devel@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-devel

-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk