From ecd3f8b27acb54cca9c3f395ec91c3822f02b82b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 17 Oct 2007 01:31:14 +0000 Subject: [PATCH] (Qcompletion_ignore_case): Change to external. (syms_of_dired) [VMS]: Remove Qcompletion_ignore_case. --- src/dired.c | 7 +------ 1 file changed, 1 insertion(+), 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 -- 2.39.2