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

Diff of /emacs/src/w32proc.c

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

revision 1.45 by andrewi, Mon Nov 5 23:15:36 2001 UTC revision 1.46 by jasonr, Mon Nov 12 23:52:51 2001 UTC
# Line 1646  extern BOOL init_winsock (int load_now); Line 1646  extern BOOL init_winsock (int load_now);
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  {  {
# Line 1682  returned to indicate winsock support is Line 1682  returned to indicate winsock support is
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;
# Line 1704  socket connections still exist.") Line 1704  socket connections still exist.")
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  {  {
# Line 1729  All path elements in FILENAME are conver Line 1729  All path elements in FILENAME are conver
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  {  {
# Line 1750  All path elements in FILENAME are conver Line 1750  All path elements in FILENAME are conver
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  {  {
# Line 1804  If successful, the return value is t, ot Line 1804  If successful, the return value is t, ot
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  {  {
# Line 1859  If LCID (a 16-bit number) is not a valid Line 1860  If LCID (a 16-bit number) is not a valid
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 ());
# Line 1896  BOOL CALLBACK enum_locale_fn (LPTSTR loc Line 1898  BOOL CALLBACK enum_locale_fn (LPTSTR loc
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;
# Line 1912  human-readable form.") Line 1915  human-readable form.")
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  {  {
# Line 1927  human-readable form.") Line 1930  human-readable form.")
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  {  {
# Line 1960  BOOL CALLBACK enum_codepage_fn (LPTSTR c Line 1963  BOOL CALLBACK enum_codepage_fn (LPTSTR c
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;
# Line 1973  DEFUN ("w32-get-valid-codepages", Fw32_g Line 1977  DEFUN ("w32-get-valid-codepages", Fw32_g
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  {  {
# Line 2000  If successful, the new CP is returned, o Line 2006  If successful, the new CP is returned, o
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  {  {
# Line 2027  If successful, the new CP is returned, o Line 2035  If successful, the new CP is returned, o
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  {  {
# Line 2047  Returns nil if the codepage is not valid Line 2056  Returns nil if the codepage is not valid
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);
# Line 2072  The return value is a list of pairs of l Line 2082  The return value is a list of pairs of l
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);
# Line 2084  The return value is the cons of the lang Line 2095  The return value is the cons of the lang
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  {  {
# Line 2150  syms_of_ntproc () Line 2162  syms_of_ntproc ()
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 */

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

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