X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/blobdiff_plain/d3595fdff784bb922b015809df0e95c9070d1b42..298fab5b8c6756940b830c9db0fc42a64acb5f9f:/dot/emacs

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.