From ebdacca7a561c40777a087ef4a16f2752895edab Mon Sep 17 00:00:00 2001 From: Jari Aalto Date: Mon, 29 Nov 2010 15:52:58 +0200 Subject: [PATCH] * startup.el: (normal-top-level-add-subdirs-to-load-path): Exclude more VCS directories: .svn, .hg, .bzr, .git and .mtn (monotone). Organization: Private Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 8bit Signed-off-by: Jari Aalto --- lisp/startup.el | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index da0264d..67f5ebc 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -419,7 +419,8 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (push attrs normal-top-level-add-subdirs-inode-list) (dolist (file contents) ;; The lower-case variants of RCS and CVS are for DOS/Windows. - (unless (member file '("." ".." "RCS" "CVS" "rcs" "cvs")) + (unless (member file '("." ".." "RCS" "CVS" "rcs" "cvs" + ".svn" ".hg" ".bzr" ".git" .mtn")) (when (and (string-match "\\`[[:alnum:]]" file) ;; Avoid doing a `stat' when it isn't necessary ;; because that can cause trouble when an NFS server -- 1.7.2.3