--- Begin Message ---
Subject: |
[PATCH] lisp/startup.el (normal-top-level-add-subdirs-to-load-path) Exclude more VCS dirs |
Date: |
Mon, 29 Nov 2010 16:04:57 +0200 |
Package: emacs
Version: 23.2+1-5.1
Severity: wishlist
Tags: patch
2010-11-29 Jari Aalto <address@hidden>
* startup.el: (normal-top-level-add-subdirs-to-load-path): Exclude
more VCS directories: .svn, .hg, .bzr, .git and .mtn (monotone).
-- System Information
Debian Release: squeeze/sid
APT Prefers testing
APT policy: (990, testing) (500, unstable) (1, experimental)
Architecture: amd64
Kernel: Linux picasso 2.6.32-5-amd64 #1 SMP Fri Sep 17 21:50:19 UTC 2010 x86_64
GNU/Linux
Locale: LANG=en_DK.UTF-8
-- Versions of packages `emacs depends on'.
Depends:
emacs23 23.2+1-5.1 GNU Emacs is the extensible self-documenting
emacs23-lucid 23.2+1-5.1 GNU Emacs is the extensible self-documenting
emacs23-nox 23.2+1-5.1 GNU Emacs is the extensible self-documenting
>From ebdacca7a561c40777a087ef4a16f2752895edab Mon Sep 17 00:00:00 2001
From: Jari Aalto <address@hidden>
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 <address@hidden>
---
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
--- End Message ---
--- Begin Message ---
Subject: |
Re: bug#7516: [PATCH] lisp/startup.el (normal-top-level-add-subdirs-to-load-path) Exclude more VCS dirs |
Date: |
Fri, 03 Dec 2010 13:58:04 -0500 |
User-agent: |
Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) |
jari wrote:
> Wouldn't the first two tests be redundant then in previous line:
>
> (unless (member file '("." ".." "RCS" "CVS" "rcs" "cvs"))
> ========
Why not test it and see?
Anyway, it's hardly a bug but I simplified it anyway.
--- End Message ---