Re: Suggestion: vc-hooks.el: Make vc-handled-backends more conservative?

[T. V. Raman]

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