(Qcompletion_ignore_case): Change to external.

(syms_of_dired) [VMS]: Remove Qcompletion_ignore_case.

1 files changed, 1 insertions, 6 deletions

diff --git a/src/dired.c b/src/dired.c
index 1fb5387268a..09c72f69fdf 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -115,10 +115,10 @@ extern void filemodestring P_ ((struct stat *, char *));
 #endif
 
 extern int completion_ignore_case;
+extern Lisp_Object Qcompletion_ignore_case;
 extern Lisp_Object Vcompletion_regexp_list;
 
 Lisp_Object Vcompletion_ignored_extensions;
-Lisp_Object Qcompletion_ignore_case;
 Lisp_Object Qdirectory_files;
 Lisp_Object Qdirectory_files_and_attributes;
 Lisp_Object Qfile_name_completion;
@@ -1077,11 +1077,6 @@ syms_of_dired ()
   defsubr (&Sfile_attributes);
   defsubr (&Sfile_attributes_lessp);
 
-#ifdef VMS
-  Qcompletion_ignore_case = intern ("completion-ignore-case");
-  staticpro (&Qcompletion_ignore_case);
-#endif /* VMS */
-
   DEFVAR_LISP ("completion-ignored-extensions", &Vcompletion_ignored_extensions,
                doc: /* Completion ignores file names ending in any string in this list.
 It does not ignore them if all possible completions end in one of