--- a/.emacs-my	Mon Dec 28 19:15:46 2009 +0200
+++ b/.emacs-my	Mon Dec 28 19:25:33 2009 +0200
@@ -348,12 +348,13 @@
 (require 'icomplete) ; Interactive completion in minibuffer.
 (icomplete-mode 1)
 
-(setq completion-ignored-extensions
-      '("CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
-        ".o" "~" ".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc"
-        ".lof" ".glo" ".idx" ".lot" ".fmt" ".tfm" ".class" ".fas" ".lib" ".x86f" ".sparcf"
-        ".lo" ".la" ".toc" ".log" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps"
-        ".fns" ".kys" ".pgs" ".tps" ".vrs"))
+(mapc (lambda (ext) (add-to-list 'completion-ignored-extensions ext))
+      '(
+        ".class" "~" ".aux"
+        ".o" ".obj" ".map" ".lib" ".lo" ".la" ".a" ".bin" ".exe"
+        ;; Place dir at end to appear at the start of completion-ignored-extensions.
+        "CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
+        ) )
 
 ;; ----------------------------------------------------------------------
 ;; *grep*