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

[John Paul Wallington]

Index: emacs/src/fileio.c
diff -c emacs/src/fileio.c:1.505 emacs/src/fileio.c:1.506
*** emacs/src/fileio.c:1.505    Sat May 22 22:17:17 2004
--- emacs/src/fileio.c  Sun Jul  4 21:06:36 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;
***************
*** 6284,6293 ****
      }
  
    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));
--- 6287,6294 ----
      }
  
    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));
***************
*** 6523,6528 ****
--- 6524,6537 ----
               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