[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/fileio.c [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/fileio.c [lexbind] |
Date: |
Tue, 06 Jul 2004 06:56:43 -0400 |
Index: emacs/src/fileio.c
diff -c emacs/src/fileio.c:1.449.2.10 emacs/src/fileio.c:1.449.2.11
*** emacs/src/fileio.c:1.449.2.10 Tue Jul 6 09:23:53 2004
--- emacs/src/fileio.c Tue Jul 6 10:26:59 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
- [Emacs-diffs] Changes to emacs/src/fileio.c [lexbind],
Miles Bader <=