[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Suggestion: vc-hooks.el: Make vc-handled-backends more conservative?
From: |
T. V. Raman |
Subject: |
Re: Suggestion: vc-hooks.el: Make vc-handled-backends more conservative? |
Date: |
Thu, 12 Oct 2006 18:31:06 -0700 |
Your patch appears to work. However it is still more efficient in
my environment to prune out arch and mcvs ---
>>>>> "Stefan" == Stefan Monnier <address@hidden> writes:
>> Consider an environment where your home dir (and all users
>> home dirs) come from nfs and are visible as /home/user
Stefan>
Stefan> Hmm... now that I look at the code I see that the
Stefan> optimization I had put for this common case is
Stefan> actually missing. Can you try the patch below, see
Stefan> if it helps?
Stefan>
Stefan>
Stefan> Stefan
Stefan>
Stefan>
Stefan> --- orig/lisp/vc-hooks.el +++ mod/lisp/vc-hooks.el @@
Stefan> -52,11 +52,13 @@ (defvar vc-header-alist ())
Stefan> (make-obsolete-variable 'vc-header-alist
Stefan> 'vc-BACKEND-header)
Stefan>
Stefan> -(defvar vc-ignore-dir-regexp
Stefan> "\\`\\([\\/][\\/]\\|/net/\\|/afs/\\)\\'" - "Regexp
Stefan> matching directory names that are not under VC's
Stefan> control. +(defcustom vc-ignore-dir-regexp
Stefan> "\\`\\([\\/][\\/]\\|/net/\\|/afs/\\)\\'" + "Regexp
Stefan> matching directory names that are not under VC's
Stefan> control. The default regexp prevents fruitless and
Stefan> time-consuming attempts to determine the VC status in
Stefan> directories in which filenames are -interpreted as
Stefan> hostnames.") +interpreted as hostnames." + :type
Stefan> 'regexp + :group 'vc)
Stefan>
Stefan> (defcustom vc-handled-backends '(RCS CVS SVN SCCS
Stefan> Arch MCVS) ;; Arch and MCVS come last because they
Stefan> are per-tree rather than per-dir. @@ -308,6 +310,9
Stefan> @@ "Find the root of a checked out project. The
Stefan> function walks up the directory tree from FILE
Stefan> looking for WITNESS. If WITNESS if not found, return
Stefan> nil, otherwise return the root." + ;; Represent
Stefan> /home/luser/foo as ~/foo so that we don't try to look
Stefan> for + ;; witnesses in /home or in /. + (setq file
Stefan> (abbreviate-file-name file)) (let ((root nil)) (while
Stefan> (not (or root (equal file (setq file
Stefan> (file-name-directory file)))
Stefan>
Stefan>
Stefan> _______________________________________________
Stefan> Emacs-devel mailing list address@hidden
Stefan> http://lists.gnu.org/mailman/listinfo/emacs-devel
--
Best Regards,
--raman
Email: address@hidden
WWW: http://emacspeak.sf.net/raman/
AIM: emacspeak GTalk: address@hidden
PGP: http://emacspeak.sf.net/raman/raman-almaden.asc
Google: tv+raman
IRC: irc://irc.freenode.net/#emacs