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 e5ae0b861aed09d8ef5ad17bd857171de3384136..708817f96f083c1511e6f4c7fa2faee0c81ce414 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -500,6 +500,13 @@
 
 (setq completion-ignored-extensions
       (append `(".hc" ".hi") completion-ignored-extensions))
 
 (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.
 
 
 ;; Some common local definitions.