From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 16 Sep 1994 22:18:10 +0000 (+0000)
Subject: (Qcompletion_ignored_extensions): New symbol.
X-Git-Tag: emacs-19.34~7054
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=408e56e14d78fde35982626e06a85e7aa7fa8e3c;p=emacs.git

(Qcompletion_ignored_extensions): New symbol.
(syms_of_dired): Initialize it.
---

diff --git a/src/dired.c b/src/dired.c
index 55fab748de4..8800db7c279 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -96,6 +96,7 @@ extern int completion_ignore_case;
 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 @@ syms_of_dired ()
   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\