From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: KOBAYASHI Yasuhiro Newsgroups: gmane.emacs.devel Subject: Re: Slow access to files using UNC path Date: Wed, 01 Sep 2004 15:31:35 +0900 Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Message-ID: References: <68c73b1a04083122477869f5a@mail.gmail.com> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1094020264 4227 80.91.224.253 (1 Sep 2004 06:31:04 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 1 Sep 2004 06:31:04 +0000 (UTC) Cc: Stefan Monnier , Andre Spiegel , Emacs Devel Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Sep 01 08:30:51 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1C2Odv-0001L8-00 for ; Wed, 01 Sep 2004 08:30:51 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1C2Oip-0002FJ-AQ for ged-emacs-devel@m.gmane.org; Wed, 01 Sep 2004 02:35:55 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1C2Oig-0002Ew-Sn for emacs-devel@gnu.org; Wed, 01 Sep 2004 02:35:47 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1C2Oif-0002EQ-6G for emacs-devel@gnu.org; Wed, 01 Sep 2004 02:35:46 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1C2Oif-0002EL-2t for emacs-devel@gnu.org; Wed, 01 Sep 2004 02:35:45 -0400 Original-Received: from [210.157.254.238] (helo=mail.otsukakj.co.jp) by monty-python.gnu.org with esmtp (Exim 4.34) id 1C2Odg-00050J-EW; Wed, 01 Sep 2004 02:30:37 -0400 Original-Received: from NSZ124 (localhost [127.0.0.1]) by mail.otsukakj.co.jp (8.12.10/8.12.10) with ESMTP id i816URaq002635; Wed, 1 Sep 2004 15:30:28 +0900 (JST) Original-To: Dhruva Krishnamurthy X-Face: sx{*Zd5t@lP<&#~%3p=Z'z@ru$R6Bvwu3`mD?-!>[pr@Do`[`tu-$[0\OB6%gb:z/7 iuq3LblNTXV@AU\/w=hI[\w}\Hr1UM~>x\cQtaXq&w:LcZn/yvAOIHk"^$laja@tc|:Y"DC]/F!W"D "*_Y$vOKK5 X-PGP-DSS: BE16 34D8 BC0B 52B5 0E86 9D4B 9B89 77B3 1D8D A872 X-PGP-Key: http://homepage3.nifty.com/y3tk/gpg/pubkey.asc In-Reply-To: <68c73b1a04083122477869f5a@mail.gmail.com> (Dhruva Krishnamurthy's message of "Wed, 1 Sep 2004 11:17:55 +0530") User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3.50 (i386-mingw-nt5.1.2600) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:26680 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:26680 In message Re: Slow access to files using UNC path Dhruva Krishnamurthy 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