(Qcompletion_ignore_case): Change to external.

(syms_of_dired) [VMS]: Remove Qcompletion_ignore_case.
This commit is contained in:
Glenn Morris 2007-10-17 01:30:59 +00:00
parent b46d7a8abb
commit 0af8c48ee0

View file

@ -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 ()
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