emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Slow access to files using UNC path


From: KOBAYASHI Yasuhiro
Subject: Re: Slow access to files using UNC path
Date: Wed, 01 Sep 2004 15:31:35 +0900
User-agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3.50 (i386-mingw-nt5.1.2600)

In message Re: Slow access to files using UNC path
 Dhruva Krishnamurthy <address@hidden> wrote:

> I request the patch to be reviewed and someone with
> write access to CVS to kindly apply the patch after suitable
> modifications to place the definition & default
> "vc-hostname-fs-path-re" correctly.

What about the following patch:

*** c:/home/kobayays/src/emacs/lisp/vc-mcvs.el~ Wed Sep  1 15:17:12 2004
--- c:/home/kobayays/src/emacs/lisp/vc-mcvs.el  Wed Sep  1 15:04:40 2004
***************
*** 118,123 ****
--- 118,124 ----
  ;;;###autoload     (while (and (stringp dir)
  ;;;###autoload                 (not (equal
  ;;;###autoload                       dir (setq dir (file-name-directory 
dir))))
+ ;;;###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))
*** c:/home/kobayays/src/emacs/lisp/vc-arch.el~ Wed Sep  1 15:16:10 2004
--- c:/home/kobayays/src/emacs/lisp/vc-arch.el  Wed Sep  1 15:04:06 2004
***************
*** 76,81 ****
--- 76,82 ----
  ;;;###autoload     (while (and (stringp dir)
  ;;;###autoload                 (not (equal
  ;;;###autoload                       dir (setq dir (file-name-directory 
dir))))
+ ;;;###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))
*** c:/home/kobayays/src/emacs/lisp/vc.el~      Wed Sep  1 15:16:40 2004
--- c:/home/kobayays/src/emacs/lisp/vc.el       Wed Sep  1 15:05:08 2004
***************
*** 644,649 ****
--- 644,652 ----
    :type '(repeat number)
    :group 'vc)
  
+ ;;;###autoload
+ (defvar vc-hostname-fs-path-re "\\`\\([\\/][\\/]\\|/net/\\|/afs/\\)\\'")
+ 
  ;; vc-annotate functionality (CVS only).
  (defvar vc-annotate-mode nil
    "Variable indicating if VC-Annotate mode is active.")

-- 
KOBAYASHI Yasuhiro <address@hidden>




reply via email to

[Prev in Thread] Current Thread [Next in Thread]