Initial revision

[chise/xemacs-chise.git.1] / lisp / loaddefs.el

diff --git a/lisp/loaddefs.el b/lisp/loaddefs.el
index 77ba4b1..52458c3 100644 (file)
--- a/lisp/loaddefs.el
+++ b/lisp/loaddefs.el
@@ -86,15 +86,23 @@
 ;; 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 includes .exe files, e.g.
+;            '(".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")))
 
 \f
 ;; This needs to be redone better. -slb