/[emacs]/emacs/src/fileio.c
ViewVC logotype

Diff of /emacs/src/fileio.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.449.2.10 by miles, Tue Jul 6 09:23:53 2004 UTC revision 1.449.2.11 by miles, Tue Jul 6 10:26:59 2004 UTC
# Line 206  Lisp_Object Vread_file_name_function; Line 206  Lisp_Object Vread_file_name_function;
206  /* Current predicate used by read_file_name_internal.  */  /* Current predicate used by read_file_name_internal.  */
207  Lisp_Object Vread_file_name_predicate;  Lisp_Object Vread_file_name_predicate;
208    
209    /* Nonzero means completion ignores case when reading file name.  */
210    int read_file_name_completion_ignore_case;
211    
212  /* Nonzero means, when reading a filename in the minibuffer,  /* Nonzero means, when reading a filename in the minibuffer,
213   start out by inserting the default directory into the minibuffer. */   start out by inserting the default directory into the minibuffer. */
214  int insert_default_directory;  int insert_default_directory;
# Line 6284  provides a file dialog box.  */) Line 6287  provides a file dialog box.  */)
6287      }      }
6288    
6289    count = SPECPDL_INDEX ();    count = SPECPDL_INDEX ();
6290  #if defined VMS || defined DOS_NT || defined MAC_OSX    specbind (intern ("completion-ignore-case"),
6291    specbind (intern ("completion-ignore-case"), Qt);              read_file_name_completion_ignore_case ? Qt : Qnil);
 #endif  
   
6292    specbind (intern ("minibuffer-completing-file-name"), Qt);    specbind (intern ("minibuffer-completing-file-name"), Qt);
6293    specbind (intern ("read-file-name-predicate"),    specbind (intern ("read-file-name-predicate"),
6294              (NILP (predicate) ? Qfile_exists_p : predicate));              (NILP (predicate) ? Qfile_exists_p : predicate));
# Line 6523  same format as a regular save would use. Line 6524  same format as a regular save would use.
6524                 doc: /* Current predicate used by `read-file-name-internal'.  */);                 doc: /* Current predicate used by `read-file-name-internal'.  */);
6525    Vread_file_name_predicate = Qnil;    Vread_file_name_predicate = Qnil;
6526    
6527      DEFVAR_BOOL ("read-file-name-completion-ignore-case", &read_file_name_completion_ignore_case,
6528                   doc: /* *Non-nil means when reading a file name completion ignores case.  */);
6529    #if defined VMS || defined DOS_NT || defined MAC_OS
6530      read_file_name_completion_ignore_case = 1;
6531    #else
6532      read_file_name_completion_ignore_case = 0;
6533    #endif
6534    
6535    DEFVAR_BOOL ("insert-default-directory", &insert_default_directory,    DEFVAR_BOOL ("insert-default-directory", &insert_default_directory,
6536                 doc: /* *Non-nil means when reading a filename start with default dir in minibuffer.                 doc: /* *Non-nil means when reading a filename start with default dir in minibuffer.
6537  If the initial minibuffer contents are non-empty, you can usually  If the initial minibuffer contents are non-empty, you can usually

Legend:
Removed from v.1.449.2.10  
changed lines
  Added in v.1.449.2.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26