[Emacs-diffs] Changes to emacs/src/fileio.c [emacs-unicode-2]

[Miles Bader]

Index: emacs/src/fileio.c
diff -c emacs/src/fileio.c:1.492.2.13 emacs/src/fileio.c:1.492.2.14
*** emacs/src/fileio.c:1.492.2.13       Mon Jun 28 07:29:20 2004
--- emacs/src/fileio.c  Tue Jul  6 02:57:07 2004
***************
*** 206,211 ****
--- 206,214 ----
  /* Current predicate used by read_file_name_internal.  */
  Lisp_Object Vread_file_name_predicate;
  
+ /* Nonzero means completion ignores case when reading file name.  */
+ int read_file_name_completion_ignore_case;
+ 
  /* Nonzero means, when reading a filename in the minibuffer,
   start out by inserting the default directory into the minibuffer. */
  int insert_default_directory;
***************
*** 6197,6206 ****
      }
  
    count = SPECPDL_INDEX ();
! #if defined VMS || defined DOS_NT || defined MAC_OSX
!   specbind (intern ("completion-ignore-case"), Qt);
! #endif
! 
    specbind (intern ("minibuffer-completing-file-name"), Qt);
    specbind (intern ("read-file-name-predicate"),
            (NILP (predicate) ? Qfile_exists_p : predicate));
--- 6200,6207 ----
      }
  
    count = SPECPDL_INDEX ();
!   specbind (intern ("completion-ignore-case"),
!           read_file_name_completion_ignore_case ? Qt : Qnil);
    specbind (intern ("minibuffer-completing-file-name"), Qt);
    specbind (intern ("read-file-name-predicate"),
            (NILP (predicate) ? Qfile_exists_p : predicate));
***************
*** 6436,6441 ****
--- 6437,6450 ----
               doc: /* Current predicate used by `read-file-name-internal'.  
*/);
    Vread_file_name_predicate = Qnil;
  
+   DEFVAR_BOOL ("read-file-name-completion-ignore-case", 
&read_file_name_completion_ignore_case,
+              doc: /* *Non-nil means when reading a file name completion 
ignores case.  */);
+ #if defined VMS || defined DOS_NT || defined MAC_OS
+   read_file_name_completion_ignore_case = 1;
+ #else
+   read_file_name_completion_ignore_case = 0;
+ #endif
+ 
    DEFVAR_BOOL ("insert-default-directory", &insert_default_directory,
               doc: /* *Non-nil means when reading a filename start with 
default dir in minibuffer.
  If the initial minibuffer contents are non-empty, you can usually