[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/fileio.c [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/fileio.c [emacs-unicode-2] |
Date: |
Mon, 05 Jul 2004 23:10:55 -0400 |
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
- [Emacs-diffs] Changes to emacs/src/fileio.c [emacs-unicode-2],
Miles Bader <=