Commit 408e56e1 authored by Karl Heuer's avatar Karl Heuer
Browse files

(Qcompletion_ignored_extensions): New symbol.

(syms_of_dired): Initialize it.
parent 1b50b4f2
...@@ -96,6 +96,7 @@ extern int completion_ignore_case; ...@@ -96,6 +96,7 @@ extern int completion_ignore_case;
extern Lisp_Object Vcompletion_regexp_list; extern Lisp_Object Vcompletion_regexp_list;
Lisp_Object Vcompletion_ignored_extensions; Lisp_Object Vcompletion_ignored_extensions;
Lisp_Object Qcompletion_ignored_extensions;
Lisp_Object Qcompletion_ignore_case; Lisp_Object Qcompletion_ignore_case;
Lisp_Object Qdirectory_files; Lisp_Object Qdirectory_files;
Lisp_Object Qfile_name_completion; Lisp_Object Qfile_name_completion;
...@@ -684,6 +685,8 @@ syms_of_dired () ...@@ -684,6 +685,8 @@ syms_of_dired ()
staticpro (&Qcompletion_ignore_case); staticpro (&Qcompletion_ignore_case);
#endif /* VMS */ #endif /* VMS */
Qcompletion_ignored_extensions = intern ("completion-ignored-extensions");
staticpro (&Qcompletion_ignored_extensions);
DEFVAR_LISP ("completion-ignored-extensions", &Vcompletion_ignored_extensions, DEFVAR_LISP ("completion-ignored-extensions", &Vcompletion_ignored_extensions,
"*Completion ignores filenames ending in any string in this list.\n\ "*Completion ignores filenames ending in any string in this list.\n\
This variable does not affect lists of possible completions,\n\ This variable does not affect lists of possible completions,\n\
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment