+(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)))))