1646 |
extern Lisp_Object Vsystem_name; |
extern Lisp_Object Vsystem_name; |
1647 |
|
|
1648 |
DEFUN ("w32-has-winsock", Fw32_has_winsock, Sw32_has_winsock, 0, 1, 0, |
DEFUN ("w32-has-winsock", Fw32_has_winsock, Sw32_has_winsock, 0, 1, 0, |
1649 |
"Test for presence of the Windows socket library `winsock'.\n\ |
doc: /* Test for presence of the Windows socket library `winsock'. |
1650 |
Returns non-nil if winsock support is present, nil otherwise.\n\ |
Returns non-nil if winsock support is present, nil otherwise. |
1651 |
\n\ |
|
1652 |
If the optional argument LOAD-NOW is non-nil, the winsock library is\n\ |
If the optional argument LOAD-NOW is non-nil, the winsock library is |
1653 |
also loaded immediately if not already loaded. If winsock is loaded,\n\ |
also loaded immediately if not already loaded. If winsock is loaded, |
1654 |
the winsock local hostname is returned (since this may be different from\n\ |
the winsock local hostname is returned (since this may be different from |
1655 |
the value of `system-name' and should supplant it), otherwise t is\n\ |
the value of `system-name' and should supplant it), otherwise t is |
1656 |
returned to indicate winsock support is present.") |
returned to indicate winsock support is present. */) |
1657 |
(load_now) |
(load_now) |
1658 |
Lisp_Object load_now; |
Lisp_Object load_now; |
1659 |
{ |
{ |
1682 |
|
|
1683 |
DEFUN ("w32-unload-winsock", Fw32_unload_winsock, Sw32_unload_winsock, |
DEFUN ("w32-unload-winsock", Fw32_unload_winsock, Sw32_unload_winsock, |
1684 |
0, 0, 0, |
0, 0, 0, |
1685 |
"Unload the Windows socket library `winsock' if loaded.\n\ |
doc: /* Unload the Windows socket library `winsock' if loaded. |
1686 |
This is provided to allow dial-up socket connections to be disconnected\n\ |
This is provided to allow dial-up socket connections to be disconnected |
1687 |
when no longer needed. Returns nil without unloading winsock if any\n\ |
when no longer needed. Returns nil without unloading winsock if any |
1688 |
socket connections still exist.") |
socket connections still exist. */) |
1689 |
() |
() |
1690 |
{ |
{ |
1691 |
return term_winsock () ? Qt : Qnil; |
return term_winsock () ? Qt : Qnil; |
1704 |
} while (0) |
} while (0) |
1705 |
|
|
1706 |
DEFUN ("w32-short-file-name", Fw32_short_file_name, Sw32_short_file_name, 1, 1, 0, |
DEFUN ("w32-short-file-name", Fw32_short_file_name, Sw32_short_file_name, 1, 1, 0, |
1707 |
"Return the short file name version (8.3) of the full path of FILENAME.\n\ |
doc: /* Return the short file name version (8.3) of the full path of FILENAME. |
1708 |
If FILENAME does not exist, return nil.\n\ |
If FILENAME does not exist, return nil. |
1709 |
All path elements in FILENAME are converted to their short names.") |
All path elements in FILENAME are converted to their short names. */) |
1710 |
(filename) |
(filename) |
1711 |
Lisp_Object filename; |
Lisp_Object filename; |
1712 |
{ |
{ |
1729 |
|
|
1730 |
DEFUN ("w32-long-file-name", Fw32_long_file_name, Sw32_long_file_name, |
DEFUN ("w32-long-file-name", Fw32_long_file_name, Sw32_long_file_name, |
1731 |
1, 1, 0, |
1, 1, 0, |
1732 |
"Return the long file name version of the full path of FILENAME.\n\ |
doc: /* Return the long file name version of the full path of FILENAME. |
1733 |
If FILENAME does not exist, return nil.\n\ |
If FILENAME does not exist, return nil. |
1734 |
All path elements in FILENAME are converted to their long names.") |
All path elements in FILENAME are converted to their long names. */) |
1735 |
(filename) |
(filename) |
1736 |
Lisp_Object filename; |
Lisp_Object filename; |
1737 |
{ |
{ |
1750 |
return build_string (longname); |
return build_string (longname); |
1751 |
} |
} |
1752 |
|
|
1753 |
DEFUN ("w32-set-process-priority", Fw32_set_process_priority, Sw32_set_process_priority, |
DEFUN ("w32-set-process-priority", Fw32_set_process_priority, |
1754 |
2, 2, 0, |
Sw32_set_process_priority, 2, 2, 0, |
1755 |
"Set the priority of PROCESS to PRIORITY.\n\ |
doc: /* Set the priority of PROCESS to PRIORITY. |
1756 |
If PROCESS is nil, the priority of Emacs is changed, otherwise the\n\ |
If PROCESS is nil, the priority of Emacs is changed, otherwise the |
1757 |
priority of the process whose pid is PROCESS is changed.\n\ |
priority of the process whose pid is PROCESS is changed. |
1758 |
PRIORITY should be one of the symbols high, normal, or low;\n\ |
PRIORITY should be one of the symbols high, normal, or low; |
1759 |
any other symbol will be interpreted as normal.\n\ |
any other symbol will be interpreted as normal. |
1760 |
\n\ |
|
1761 |
If successful, the return value is t, otherwise nil.") |
If successful, the return value is t, otherwise nil. */) |
1762 |
(process, priority) |
(process, priority) |
1763 |
Lisp_Object process, priority; |
Lisp_Object process, priority; |
1764 |
{ |
{ |
1804 |
} |
} |
1805 |
|
|
1806 |
|
|
1807 |
DEFUN ("w32-get-locale-info", Fw32_get_locale_info, Sw32_get_locale_info, 1, 2, 0, |
DEFUN ("w32-get-locale-info", Fw32_get_locale_info, |
1808 |
"Return information about the Windows locale LCID.\n\ |
Sw32_get_locale_info, 1, 2, 0, |
1809 |
By default, return a three letter locale code which encodes the default\n\ |
doc: /* Return information about the Windows locale LCID. |
1810 |
language as the first two characters, and the country or regionial variant\n\ |
By default, return a three letter locale code which encodes the default |
1811 |
as the third letter. For example, ENU refers to `English (United States)',\n\ |
language as the first two characters, and the country or regionial variant |
1812 |
while ENC means `English (Canadian)'.\n\ |
as the third letter. For example, ENU refers to `English (United States)', |
1813 |
\n\ |
while ENC means `English (Canadian)'. |
1814 |
If the optional argument LONGFORM is t, the long form of the locale\n\ |
|
1815 |
name is returned, e.g. `English (United States)' instead; if LONGFORM\n\ |
If the optional argument LONGFORM is t, the long form of the locale |
1816 |
is a number, it is interpreted as an LCTYPE constant and the corresponding\n\ |
name is returned, e.g. `English (United States)' instead; if LONGFORM |
1817 |
locale information is returned.\n\ |
is a number, it is interpreted as an LCTYPE constant and the corresponding |
1818 |
\n\ |
locale information is returned. |
1819 |
If LCID (a 16-bit number) is not a valid locale, the result is nil.") |
|
1820 |
|
If LCID (a 16-bit number) is not a valid locale, the result is nil. */) |
1821 |
(lcid, longform) |
(lcid, longform) |
1822 |
Lisp_Object lcid, longform; |
Lisp_Object lcid, longform; |
1823 |
{ |
{ |
1860 |
} |
} |
1861 |
|
|
1862 |
|
|
1863 |
DEFUN ("w32-get-current-locale-id", Fw32_get_current_locale_id, Sw32_get_current_locale_id, 0, 0, 0, |
DEFUN ("w32-get-current-locale-id", Fw32_get_current_locale_id, |
1864 |
"Return Windows locale id for current locale setting.\n\ |
Sw32_get_current_locale_id, 0, 0, 0, |
1865 |
This is a numerical value; use `w32-get-locale-info' to convert to a\n\ |
doc: /* Return Windows locale id for current locale setting. |
1866 |
human-readable form.") |
This is a numerical value; use `w32-get-locale-info' to convert to a |
1867 |
|
human-readable form. */) |
1868 |
() |
() |
1869 |
{ |
{ |
1870 |
return make_number (GetThreadLocale ()); |
return make_number (GetThreadLocale ()); |
1898 |
return TRUE; |
return TRUE; |
1899 |
} |
} |
1900 |
|
|
1901 |
DEFUN ("w32-get-valid-locale-ids", Fw32_get_valid_locale_ids, Sw32_get_valid_locale_ids, 0, 0, 0, |
DEFUN ("w32-get-valid-locale-ids", Fw32_get_valid_locale_ids, |
1902 |
"Return list of all valid Windows locale ids.\n\ |
Sw32_get_valid_locale_ids, 0, 0, 0, |
1903 |
Each id is a numerical value; use `w32-get-locale-info' to convert to a\n\ |
doc: /* Return list of all valid Windows locale ids. |
1904 |
human-readable form.") |
Each id is a numerical value; use `w32-get-locale-info' to convert to a |
1905 |
|
human-readable form. */) |
1906 |
() |
() |
1907 |
{ |
{ |
1908 |
Vw32_valid_locale_ids = Qnil; |
Vw32_valid_locale_ids = Qnil; |
1915 |
|
|
1916 |
|
|
1917 |
DEFUN ("w32-get-default-locale-id", Fw32_get_default_locale_id, Sw32_get_default_locale_id, 0, 1, 0, |
DEFUN ("w32-get-default-locale-id", Fw32_get_default_locale_id, Sw32_get_default_locale_id, 0, 1, 0, |
1918 |
"Return Windows locale id for default locale setting.\n\ |
doc: /* Return Windows locale id for default locale setting. |
1919 |
By default, the system default locale setting is returned; if the optional\n\ |
By default, the system default locale setting is returned; if the optional |
1920 |
parameter USERP is non-nil, the user default locale setting is returned.\n\ |
parameter USERP is non-nil, the user default locale setting is returned. |
1921 |
This is a numerical value; use `w32-get-locale-info' to convert to a\n\ |
This is a numerical value; use `w32-get-locale-info' to convert to a |
1922 |
human-readable form.") |
human-readable form. */) |
1923 |
(userp) |
(userp) |
1924 |
Lisp_Object userp; |
Lisp_Object userp; |
1925 |
{ |
{ |
1930 |
|
|
1931 |
|
|
1932 |
DEFUN ("w32-set-current-locale", Fw32_set_current_locale, Sw32_set_current_locale, 1, 1, 0, |
DEFUN ("w32-set-current-locale", Fw32_set_current_locale, Sw32_set_current_locale, 1, 1, 0, |
1933 |
"Make Windows locale LCID be the current locale setting for Emacs.\n\ |
doc: /* Make Windows locale LCID be the current locale setting for Emacs. |
1934 |
If successful, the new locale id is returned, otherwise nil.") |
If successful, the new locale id is returned, otherwise nil. */) |
1935 |
(lcid) |
(lcid) |
1936 |
Lisp_Object lcid; |
Lisp_Object lcid; |
1937 |
{ |
{ |
1963 |
return TRUE; |
return TRUE; |
1964 |
} |
} |
1965 |
|
|
1966 |
DEFUN ("w32-get-valid-codepages", Fw32_get_valid_codepages, Sw32_get_valid_codepages, 0, 0, 0, |
DEFUN ("w32-get-valid-codepages", Fw32_get_valid_codepages, |
1967 |
"Return list of all valid Windows codepages.") |
Sw32_get_valid_codepages, 0, 0, 0, |
1968 |
|
doc: /* Return list of all valid Windows codepages. */) |
1969 |
() |
() |
1970 |
{ |
{ |
1971 |
Vw32_valid_codepages = Qnil; |
Vw32_valid_codepages = Qnil; |
1977 |
} |
} |
1978 |
|
|
1979 |
|
|
1980 |
DEFUN ("w32-get-console-codepage", Fw32_get_console_codepage, Sw32_get_console_codepage, 0, 0, 0, |
DEFUN ("w32-get-console-codepage", Fw32_get_console_codepage, |
1981 |
"Return current Windows codepage for console input.") |
Sw32_get_console_codepage, 0, 0, 0, |
1982 |
|
doc: /* Return current Windows codepage for console input. */) |
1983 |
() |
() |
1984 |
{ |
{ |
1985 |
return make_number (GetConsoleCP ()); |
return make_number (GetConsoleCP ()); |
1986 |
} |
} |
1987 |
|
|
1988 |
|
|
1989 |
DEFUN ("w32-set-console-codepage", Fw32_set_console_codepage, Sw32_set_console_codepage, 1, 1, 0, |
DEFUN ("w32-set-console-codepage", Fw32_set_console_codepage, |
1990 |
"Make Windows codepage CP be the current codepage setting for Emacs.\n\ |
Sw32_set_console_codepage, 1, 1, 0, |
1991 |
The codepage setting affects keyboard input and display in tty mode.\n\ |
doc: /* Make Windows codepage CP be the current codepage setting for Emacs. |
1992 |
If successful, the new CP is returned, otherwise nil.") |
The codepage setting affects keyboard input and display in tty mode. |
1993 |
|
If successful, the new CP is returned, otherwise nil. */) |
1994 |
(cp) |
(cp) |
1995 |
Lisp_Object cp; |
Lisp_Object cp; |
1996 |
{ |
{ |
2006 |
} |
} |
2007 |
|
|
2008 |
|
|
2009 |
DEFUN ("w32-get-console-output-codepage", Fw32_get_console_output_codepage, Sw32_get_console_output_codepage, 0, 0, 0, |
DEFUN ("w32-get-console-output-codepage", Fw32_get_console_output_codepage, |
2010 |
"Return current Windows codepage for console output.") |
Sw32_get_console_output_codepage, 0, 0, 0, |
2011 |
|
doc: /* Return current Windows codepage for console output. */) |
2012 |
() |
() |
2013 |
{ |
{ |
2014 |
return make_number (GetConsoleOutputCP ()); |
return make_number (GetConsoleOutputCP ()); |
2015 |
} |
} |
2016 |
|
|
2017 |
|
|
2018 |
DEFUN ("w32-set-console-output-codepage", Fw32_set_console_output_codepage, Sw32_set_console_output_codepage, 1, 1, 0, |
DEFUN ("w32-set-console-output-codepage", Fw32_set_console_output_codepage, |
2019 |
"Make Windows codepage CP be the current codepage setting for Emacs.\n\ |
Sw32_set_console_output_codepage, 1, 1, 0, |
2020 |
The codepage setting affects keyboard input and display in tty mode.\n\ |
doc: /* Make Windows codepage CP be the current codepage setting for Emacs. |
2021 |
If successful, the new CP is returned, otherwise nil.") |
The codepage setting affects keyboard input and display in tty mode. |
2022 |
|
If successful, the new CP is returned, otherwise nil. */) |
2023 |
(cp) |
(cp) |
2024 |
Lisp_Object cp; |
Lisp_Object cp; |
2025 |
{ |
{ |
2035 |
} |
} |
2036 |
|
|
2037 |
|
|
2038 |
DEFUN ("w32-get-codepage-charset", Fw32_get_codepage_charset, Sw32_get_codepage_charset, 1, 1, 0, |
DEFUN ("w32-get-codepage-charset", Fw32_get_codepage_charset, |
2039 |
"Return charset of codepage CP.\n\ |
Sw32_get_codepage_charset, 1, 1, 0, |
2040 |
Returns nil if the codepage is not valid.") |
doc: /* Return charset of codepage CP. |
2041 |
|
Returns nil if the codepage is not valid. */) |
2042 |
(cp) |
(cp) |
2043 |
Lisp_Object cp; |
Lisp_Object cp; |
2044 |
{ |
{ |
2056 |
} |
} |
2057 |
|
|
2058 |
|
|
2059 |
DEFUN ("w32-get-valid-keyboard-layouts", Fw32_get_valid_keyboard_layouts, Sw32_get_valid_keyboard_layouts, 0, 0, 0, |
DEFUN ("w32-get-valid-keyboard-layouts", Fw32_get_valid_keyboard_layouts, |
2060 |
"Return list of Windows keyboard languages and layouts.\n\ |
Sw32_get_valid_keyboard_layouts, 0, 0, 0, |
2061 |
The return value is a list of pairs of language id and layout id.") |
doc: /* Return list of Windows keyboard languages and layouts. |
2062 |
|
The return value is a list of pairs of language id and layout id. */) |
2063 |
() |
() |
2064 |
{ |
{ |
2065 |
int num_layouts = GetKeyboardLayoutList (0, NULL); |
int num_layouts = GetKeyboardLayoutList (0, NULL); |
2082 |
} |
} |
2083 |
|
|
2084 |
|
|
2085 |
DEFUN ("w32-get-keyboard-layout", Fw32_get_keyboard_layout, Sw32_get_keyboard_layout, 0, 0, 0, |
DEFUN ("w32-get-keyboard-layout", Fw32_get_keyboard_layout, |
2086 |
"Return current Windows keyboard language and layout.\n\ |
Sw32_get_keyboard_layout, 0, 0, 0, |
2087 |
The return value is the cons of the language id and the layout id.") |
doc: /* Return current Windows keyboard language and layout. |
2088 |
|
The return value is the cons of the language id and the layout id. */) |
2089 |
() |
() |
2090 |
{ |
{ |
2091 |
DWORD kl = (DWORD) GetKeyboardLayout (dwWindowsThreadId); |
DWORD kl = (DWORD) GetKeyboardLayout (dwWindowsThreadId); |
2095 |
} |
} |
2096 |
|
|
2097 |
|
|
2098 |
DEFUN ("w32-set-keyboard-layout", Fw32_set_keyboard_layout, Sw32_set_keyboard_layout, 1, 1, 0, |
DEFUN ("w32-set-keyboard-layout", Fw32_set_keyboard_layout, |
2099 |
"Make LAYOUT be the current keyboard layout for Emacs.\n\ |
Sw32_set_keyboard_layout, 1, 1, 0, |
2100 |
The keyboard layout setting affects interpretation of keyboard input.\n\ |
doc: /* Make LAYOUT be the current keyboard layout for Emacs. |
2101 |
If successful, the new layout id is returned, otherwise nil.") |
The keyboard layout setting affects interpretation of keyboard input. |
2102 |
|
If successful, the new layout id is returned, otherwise nil. */) |
2103 |
(layout) |
(layout) |
2104 |
Lisp_Object layout; |
Lisp_Object layout; |
2105 |
{ |
{ |
2162 |
defsubr (&Sw32_set_keyboard_layout); |
defsubr (&Sw32_set_keyboard_layout); |
2163 |
|
|
2164 |
DEFVAR_LISP ("w32-quote-process-args", &Vw32_quote_process_args, |
DEFVAR_LISP ("w32-quote-process-args", &Vw32_quote_process_args, |
2165 |
"Non-nil enables quoting of process arguments to ensure correct parsing.\n\ |
doc: /* Non-nil enables quoting of process arguments to ensure correct parsing. |
2166 |
Because Windows does not directly pass argv arrays to child processes,\n\ |
Because Windows does not directly pass argv arrays to child processes, |
2167 |
programs have to reconstruct the argv array by parsing the command\n\ |
programs have to reconstruct the argv array by parsing the command |
2168 |
line string. For an argument to contain a space, it must be enclosed\n\ |
line string. For an argument to contain a space, it must be enclosed |
2169 |
in double quotes or it will be parsed as multiple arguments.\n\ |
in double quotes or it will be parsed as multiple arguments. |
2170 |
\n\ |
|
2171 |
If the value is a character, that character will be used to escape any\n\ |
If the value is a character, that character will be used to escape any |
2172 |
quote characters that appear, otherwise a suitable escape character\n\ |
quote characters that appear, otherwise a suitable escape character |
2173 |
will be chosen based on the type of the program."); |
will be chosen based on the type of the program. */); |
2174 |
Vw32_quote_process_args = Qt; |
Vw32_quote_process_args = Qt; |
2175 |
|
|
2176 |
DEFVAR_LISP ("w32-start-process-show-window", |
DEFVAR_LISP ("w32-start-process-show-window", |
2177 |
&Vw32_start_process_show_window, |
&Vw32_start_process_show_window, |
2178 |
"When nil, new child processes hide their windows.\n\ |
doc: /* When nil, new child processes hide their windows. |
2179 |
When non-nil, they show their window in the method of their choice.\n\ |
When non-nil, they show their window in the method of their choice. |
2180 |
This variable doesn't affect GUI applications, which will never be hidden."); |
This variable doesn't affect GUI applications, which will never be hidden. */); |
2181 |
Vw32_start_process_show_window = Qnil; |
Vw32_start_process_show_window = Qnil; |
2182 |
|
|
2183 |
DEFVAR_LISP ("w32-start-process-share-console", |
DEFVAR_LISP ("w32-start-process-share-console", |
2184 |
&Vw32_start_process_share_console, |
&Vw32_start_process_share_console, |
2185 |
"When nil, new child processes are given a new console.\n\ |
doc: /* When nil, new child processes are given a new console. |
2186 |
When non-nil, they share the Emacs console; this has the limitation of\n\ |
When non-nil, they share the Emacs console; this has the limitation of |
2187 |
allowing only only DOS subprocess to run at a time (whether started directly\n\ |
allowing only only DOS subprocess to run at a time (whether started directly |
2188 |
or indirectly by Emacs), and preventing Emacs from cleanly terminating the\n\ |
or indirectly by Emacs), and preventing Emacs from cleanly terminating the |
2189 |
subprocess group, but may allow Emacs to interrupt a subprocess that doesn't\n\ |
subprocess group, but may allow Emacs to interrupt a subprocess that doesn't |
2190 |
otherwise respond to interrupts from Emacs."); |
otherwise respond to interrupts from Emacs. */); |
2191 |
Vw32_start_process_share_console = Qnil; |
Vw32_start_process_share_console = Qnil; |
2192 |
|
|
2193 |
DEFVAR_LISP ("w32-start-process-inherit-error-mode", |
DEFVAR_LISP ("w32-start-process-inherit-error-mode", |
2194 |
&Vw32_start_process_inherit_error_mode, |
&Vw32_start_process_inherit_error_mode, |
2195 |
"When nil, new child processes revert to the default error mode.\n\ |
doc: /* When nil, new child processes revert to the default error mode. |
2196 |
When non-nil, they inherit their error mode setting from Emacs, which stops\n\ |
When non-nil, they inherit their error mode setting from Emacs, which stops |
2197 |
them blocking when trying to access unmounted drives etc."); |
them blocking when trying to access unmounted drives etc. */); |
2198 |
Vw32_start_process_inherit_error_mode = Qt; |
Vw32_start_process_inherit_error_mode = Qt; |
2199 |
|
|
2200 |
DEFVAR_INT ("w32-pipe-read-delay", &Vw32_pipe_read_delay, |
DEFVAR_INT ("w32-pipe-read-delay", &Vw32_pipe_read_delay, |
2201 |
"Forced delay before reading subprocess output.\n\ |
doc: /* Forced delay before reading subprocess output. |
2202 |
This is done to improve the buffering of subprocess output, by\n\ |
This is done to improve the buffering of subprocess output, by |
2203 |
avoiding the inefficiency of frequently reading small amounts of data.\n\ |
avoiding the inefficiency of frequently reading small amounts of data. |
2204 |
\n\ |
|
2205 |
If positive, the value is the number of milliseconds to sleep before\n\ |
If positive, the value is the number of milliseconds to sleep before |
2206 |
reading the subprocess output. If negative, the magnitude is the number\n\ |
reading the subprocess output. If negative, the magnitude is the number |
2207 |
of time slices to wait (effectively boosting the priority of the child\n\ |
of time slices to wait (effectively boosting the priority of the child |
2208 |
process temporarily). A value of zero disables waiting entirely."); |
process temporarily). A value of zero disables waiting entirely. */); |
2209 |
Vw32_pipe_read_delay = 50; |
Vw32_pipe_read_delay = 50; |
2210 |
|
|
2211 |
DEFVAR_LISP ("w32-downcase-file-names", &Vw32_downcase_file_names, |
DEFVAR_LISP ("w32-downcase-file-names", &Vw32_downcase_file_names, |
2212 |
"Non-nil means convert all-upper case file names to lower case.\n\ |
doc: /* Non-nil means convert all-upper case file names to lower case. |
2213 |
This applies when performing completions and file name expansion.\n\ |
This applies when performing completions and file name expansion. |
2214 |
Note that the value of this setting also affects remote file names,\n\ |
Note that the value of this setting also affects remote file names, |
2215 |
so you probably don't want to set to non-nil if you use case-sensitive\n\ |
so you probably don't want to set to non-nil if you use case-sensitive |
2216 |
filesystems via ange-ftp."); |
filesystems via ange-ftp. */); |
2217 |
Vw32_downcase_file_names = Qnil; |
Vw32_downcase_file_names = Qnil; |
2218 |
|
|
2219 |
#if 0 |
#if 0 |
2220 |
DEFVAR_LISP ("w32-generate-fake-inodes", &Vw32_generate_fake_inodes, |
DEFVAR_LISP ("w32-generate-fake-inodes", &Vw32_generate_fake_inodes, |
2221 |
"Non-nil means attempt to fake realistic inode values.\n\ |
doc: /* Non-nil means attempt to fake realistic inode values. |
2222 |
This works by hashing the truename of files, and should detect \n\ |
This works by hashing the truename of files, and should detect |
2223 |
aliasing between long and short (8.3 DOS) names, but can have\n\ |
aliasing between long and short (8.3 DOS) names, but can have |
2224 |
false positives because of hash collisions. Note that determing\n\ |
false positives because of hash collisions. Note that determing |
2225 |
the truename of a file can be slow."); |
the truename of a file can be slow. */); |
2226 |
Vw32_generate_fake_inodes = Qnil; |
Vw32_generate_fake_inodes = Qnil; |
2227 |
#endif |
#endif |
2228 |
|
|
2229 |
DEFVAR_LISP ("w32-get-true-file-attributes", &Vw32_get_true_file_attributes, |
DEFVAR_LISP ("w32-get-true-file-attributes", &Vw32_get_true_file_attributes, |
2230 |
"Non-nil means determine accurate link count in file-attributes.\n\ |
doc: /* Non-nil means determine accurate link count in file-attributes. |
2231 |
This option slows down file-attributes noticeably, so is disabled by\n\ |
This option slows down file-attributes noticeably, so is disabled by |
2232 |
default. Note that it is only useful for files on NTFS volumes,\n\ |
default. Note that it is only useful for files on NTFS volumes, |
2233 |
where hard links are supported."); |
where hard links are supported. */); |
2234 |
Vw32_get_true_file_attributes = Qnil; |
Vw32_get_true_file_attributes = Qnil; |
2235 |
} |
} |
2236 |
/* end of ntproc.c */ |
/* end of ntproc.c */ |