Mercurial > hg > xemacs-beta
diff src/device-msw.c @ 263:727739f917cb r20-5b30
Import from CVS: tag r20-5b30
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:24:41 +0200 |
parents | 83b3d10dcba9 |
children | 966663fcf606 |
line wrap: on
line diff
--- a/src/device-msw.c Mon Aug 13 10:23:52 2007 +0200 +++ b/src/device-msw.c Mon Aug 13 10:24:41 2007 +0200 @@ -45,8 +45,19 @@ HSZ mswindows_dde_topic_system; HSZ mswindows_dde_item_open; + +/* Control conversion of upper case file names to lower case. + nil means no, t means yes. */ +Lisp_Object Vmswindows_downcase_file_names; + +/* Control whether stat() attempts to determine file type and link count + exactly, at the expense of slower operation. Since true hard links + are supported on NTFS volumes, this is only relevant on NT. */ +Lisp_Object Vmswindows_get_true_file_attributes; + Lisp_Object Qinit_pre_mswindows_win, Qinit_post_mswindows_win; + static void mswindows_init_device (struct device *d, Lisp_Object props) { @@ -164,6 +175,19 @@ { defsymbol (&Qinit_pre_mswindows_win, "init-pre-mswindows-win"); defsymbol (&Qinit_post_mswindows_win, "init-post-mswindows-win"); + + DEFVAR_LISP ("mswindows-downcase-file-names", &Vmswindows_downcase_file_names /* +Non-nil means convert all-upper case file names to lower case. +This applies when performing completions and file name expansion.*/ ); + Vmswindows_downcase_file_names = Qnil; + + DEFVAR_LISP ("mswindows-get-true-file-attributes", &Vmswindows_get_true_file_attributes /* + "Non-nil means determine accurate link count in file-attributes. +This option slows down file-attributes noticeably, so is disabled by +default. Note that it is only useful for files on NTFS volumes, +where hard links are supported. +*/ ); + Vmswindows_get_true_file_attributes = Qnil; } void