(Qcompletion_ignore_case): Change to external.
(syms_of_dired) [VMS]: Remove Qcompletion_ignore_case.
This commit is contained in:
parent
b46d7a8abb
commit
0af8c48ee0
1 changed files with 1 additions and 6 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Reference in a new issue