Commit ecd3f8b2 authored by Glenn Morris's avatar Glenn Morris
Browse files

(Qcompletion_ignore_case): Change to external.

(syms_of_dired) [VMS]: Remove Qcompletion_ignore_case.
parent 9fa5c213
...@@ -115,10 +115,10 @@ extern void filemodestring P_ ((struct stat *, char *)); ...@@ -115,10 +115,10 @@ extern void filemodestring P_ ((struct stat *, char *));
#endif #endif
extern int completion_ignore_case; extern int completion_ignore_case;
extern Lisp_Object Qcompletion_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_ignore_case;
Lisp_Object Qdirectory_files; Lisp_Object Qdirectory_files;
Lisp_Object Qdirectory_files_and_attributes; Lisp_Object Qdirectory_files_and_attributes;
Lisp_Object Qfile_name_completion; Lisp_Object Qfile_name_completion;
...@@ -1077,11 +1077,6 @@ syms_of_dired () ...@@ -1077,11 +1077,6 @@ syms_of_dired ()
defsubr (&Sfile_attributes); defsubr (&Sfile_attributes);
defsubr (&Sfile_attributes_lessp); 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, DEFVAR_LISP ("completion-ignored-extensions", &Vcompletion_ignored_extensions,
doc: /* Completion ignores file names ending in any string in this list. 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 It does not ignore them if all possible completions end in one of
......
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