XEmacs 21.2.47 (Zephir).

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

diff --git a/lisp/loaddefs.el b/lisp/loaddefs.el
index 52458c3..fa59466 100644 (file)
--- a/lisp/loaddefs.el
+++ b/lisp/loaddefs.el
@@ -85,24 +85,24 @@
 ;; are ignored in completion,
 ;; making it more likely you will get a unique match.
 (setq completion-ignored-extensions
-      (mapcar 'purecopy
-             ;; 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.
+      ;; 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")))
+      '(".o" ".obj" ".elc" "~"
+       ".bin" ".lbin" ;; #### these are doubtful, esp. the latter.
+       ".dvi" ;; possibly doubtful, too.
+       ".class"))
 
 \f
 ;; This needs to be redone better. -slb