diff src/dired.c @ 8800:07c5c4f12d62

(Qcompletion_ignored_extensions): New symbol. (syms_of_dired): Initialize it.
author Karl Heuer <kwzh@gnu.org>
date Fri, 16 Sep 1994 22:18:10 +0000
parents ec45b17e09b3
children 37d46d623ed9
line wrap: on
line diff
--- 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\