From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 4 Feb 2010 13:20:14 +0000 (+0000)
Subject: dot/emacs: Remove VCS directories from `completion-ignored-extensions'
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/298fab5b8c6756940b830c9db0fc42a64acb5f9f

dot/emacs: Remove VCS directories from `completion-ignored-extensions'

What I /want/ to do is have Emacs not ignore `.git' as a suffix on a
directory name, but still ignore the VCS directory, but it doesn't seem
to work like that.  More on this later, probably.
---

diff --git a/dot/emacs b/dot/emacs
index e5ae0b8..708817f 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -500,6 +500,13 @@
 
 (setq completion-ignored-extensions
       (append `(".hc" ".hi") completion-ignored-extensions))
+(dolist (dir (remove-if-not (lambda (ext)
+			      (= (aref ext (- (length ext) 1)) ?/))
+			    completion-ignored-extensions))
+  (if (/= (aref dir 0) ?/)
+      (setq completion-ignored-extensions
+	    (cons (concat "/" dir)
+		  (remove dir completion-ignored-extensions)))))
 
 ;; Some common local definitions.