# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 779753890 0
# Node ID 07c5c4f12d62312ed4b479c872511d5540864f9a
# Parent  e48d66b056fdd1b5ca691eb574c4feb2baf8e090
(Qcompletion_ignored_extensions): New symbol.
(syms_of_dired): Initialize it.

diff -r e48d66b056fd -r 07c5c4f12d62 src/dired.c
--- a/src/dired.c	Fri Sep 16 22:17:40 1994 +0000
+++ b/src/dired.c	Fri Sep 16 22:18:10 1994 +0000
@@ -96,6 +96,7 @@
 extern Lisp_Object Vcompletion_regexp_list;
 
 Lisp_Object Vcompletion_ignored_extensions;
+Lisp_Object Qcompletion_ignored_extensions;
 Lisp_Object Qcompletion_ignore_case;
 Lisp_Object Qdirectory_files;
 Lisp_Object Qfile_name_completion;
@@ -684,6 +685,8 @@
   staticpro (&Qcompletion_ignore_case);
 #endif /* VMS */
 
+  Qcompletion_ignored_extensions = intern ("completion-ignored-extensions");
+  staticpro (&Qcompletion_ignored_extensions);
   DEFVAR_LISP ("completion-ignored-extensions", &Vcompletion_ignored_extensions,
     "*Completion ignores filenames ending in any string in this list.\n\
 This variable does not affect lists of possible completions,\n\