diff lisp/bindings.el @ 16776:b998fe0016d5

(completion-ignored-extensions): Separate out the system-independent elements. Add Texinfo index files.
author Richard M. Stallman <rms@gnu.org>
date Sun, 29 Dec 1996 18:59:24 +0000
parents 285f4e41d163
children 8d2ff69b0c0a
line wrap: on
line diff
--- a/lisp/bindings.el	Sun Dec 29 18:49:11 1996 +0000
+++ b/lisp/bindings.el	Sun Dec 29 18:59:24 1996 +0000
@@ -103,19 +103,25 @@
 ;; are ignored in completion,
 ;; making it more likely you will get a unique match.
 (setq completion-ignored-extensions
-      (cond ((or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
-	     '(".o" ".elc" "~" ".bin" ".bak" ".obj" ".map"
-	       ".dvi" ".toc" ".log" ".aux" ".a" ".ln"
-	       ".lof" ".blg" ".bbl" ".glo" ".idx" ".lot" ".fmt"))
-	    ((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"))
-	    (t
-	     '(".o" ".elc" "~" ".bin" ".lbin" ".fasl"
-	       ".dvi" ".toc" ".log" ".aux" ".a" ".ln"
-	       ".lof" ".blg" ".bbl" ".glo" ".idx" ".lot" ".fmt"))))
+      (append
+       (cond ((or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
+	      '(".o" "~" ".bin" ".bak" ".obj" ".map"
+		".a" ".ln" ".blg" ".bbl"))
+	     ((eq system-type 'vax-vms)
+	      '(".obj" ".exe" ".bin" ".lbin" ".sbin"
+		".brn" ".rnt" ".mem" ".lni" ".lis"
+		".olb" ".tlb" ".mlb" ".hlb"))
+	     (t
+	      '(".o" "~" ".bin" ".lbin" ".fasl"
+		".a" ".ln" ".blg" ".bbl")))
+       '(".elc" ".lof"
+	 ".glo" ".idx" ".lot"
+	 ;; TeX-related
+	 ".dvi" ".fmt"
+	 ;; Texinfo-related
+	 ".toc" ".log" ".aux"
+	 ".cp" ".fn" ".ky" ".pg" ".tp" ".vr"
+	 ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs")))
 
 (setq debug-ignored-errors
       '(beginning-of-line beginning-of-buffer end-of-line