From 408e56e14d78fde35982626e06a85e7aa7fa8e3c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 16 Sep 1994 22:18:10 +0000 Subject: [PATCH] (Qcompletion_ignored_extensions): New symbol. (syms_of_dired): Initialize it. --- src/dired.c | 3 +++ 1 file changed, 3 insertions(+) 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\ -- 2.39.5