X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/2dd9081f5f0d805d4b99fd087d29c9cf9da4815f..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.