X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Floaddefs.el;h=fa59466be68a445e8cc2cd2e4611192f1c8712be;hp=77ba4b1865a25162fe2abb5494f20940c381d263;hb=efdb31fd4c8db81d2414c32d491f1bf994263c74;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910

diff --git a/lisp/loaddefs.el b/lisp/loaddefs.el
index 77ba4b1..fa59466 100644
--- a/lisp/loaddefs.el
+++ b/lisp/loaddefs.el
@@ -85,16 +85,24 @@
 ;; are ignored in completion,
 ;; making it more likely you will get a unique match.
 (setq completion-ignored-extensions
-      (mapcar 'purecopy
-	      (if (eq system-type 'vax-vms)
-		  '(".obj" ".elc" ".exe" ".bin" ".lbin" ".sbin"
-		    ".dvi" ".toc" ".log" ".aux"
-		    ".lof" ".brn" ".rnt" ".mem" ".lni" ".lis"
-		    ".olb" ".tlb" ".mlb" ".hlb" ".glo" ".idx" ".lot" ".fmt")
-		'(".o" ".elc" "~" ".bin" ".lbin" ".fasl"
-		  ".dvi" ".toc" ".log" ".aux" ".a" ".ln"
-		  ".lof" ".blg" ".bbl" ".glo" ".idx" ".lot" ".fmt"
-		  ".diff" ".oi" ".class"))))
+      ;; this is way way way bogus.
+      ;; completely wtf?
+      ;; the only things that should be here are those that are
+      ;; (a) universally recognizable, and
+      ;; (b) obvious backup files, or
+      ;; (c) obvious binary files that are generated on a
+      ;;     PER-SOURCE-FILE basis, so that they will actually
+      ;;     cause annoyance.  This excludes executables (.exe, .com)
+      ;;     and libraries (.a, .lib, .dll).
+;	      '(".o" ".elc" "~" ".bin" ".lbin" ".fasl"
+;		".dvi" ".toc" ;".log"
+;		".aux" ".a" ".ln"
+;		".lof" ".blg" ".bbl" ".glo" ".idx" ".lot" ".fmt"
+;		".diff" ".oi" ".class")))
+      '(".o" ".obj" ".elc" "~"
+	".bin" ".lbin" ;; #### these are doubtful, esp. the latter.
+	".dvi" ;; possibly doubtful, too.
+	".class"))
 
 
 ;; This needs to be redone better. -slb