1712 |
{ |
{ |
1713 |
char shortname[MAX_PATH]; |
char shortname[MAX_PATH]; |
1714 |
|
|
1715 |
CHECK_STRING (filename, 0); |
CHECK_STRING (filename); |
1716 |
|
|
1717 |
/* first expand it. */ |
/* first expand it. */ |
1718 |
filename = Fexpand_file_name (filename, Qnil); |
filename = Fexpand_file_name (filename, Qnil); |
1737 |
{ |
{ |
1738 |
char longname[ MAX_PATH ]; |
char longname[ MAX_PATH ]; |
1739 |
|
|
1740 |
CHECK_STRING (filename, 0); |
CHECK_STRING (filename); |
1741 |
|
|
1742 |
/* first expand it. */ |
/* first expand it. */ |
1743 |
filename = Fexpand_file_name (filename, Qnil); |
filename = Fexpand_file_name (filename, Qnil); |
1766 |
DWORD priority_class = NORMAL_PRIORITY_CLASS; |
DWORD priority_class = NORMAL_PRIORITY_CLASS; |
1767 |
Lisp_Object result = Qnil; |
Lisp_Object result = Qnil; |
1768 |
|
|
1769 |
CHECK_SYMBOL (priority, 0); |
CHECK_SYMBOL (priority); |
1770 |
|
|
1771 |
if (!NILP (process)) |
if (!NILP (process)) |
1772 |
{ |
{ |
1773 |
DWORD pid; |
DWORD pid; |
1774 |
child_process *cp; |
child_process *cp; |
1775 |
|
|
1776 |
CHECK_NUMBER (process, 0); |
CHECK_NUMBER (process); |
1777 |
|
|
1778 |
/* Allow pid to be an internally generated one, or one obtained |
/* Allow pid to be an internally generated one, or one obtained |
1779 |
externally. This is necessary because real pids on Win95 are |
externally. This is necessary because real pids on Win95 are |
1825 |
char abbrev_name[32] = { 0 }; |
char abbrev_name[32] = { 0 }; |
1826 |
char full_name[256] = { 0 }; |
char full_name[256] = { 0 }; |
1827 |
|
|
1828 |
CHECK_NUMBER (lcid, 0); |
CHECK_NUMBER (lcid); |
1829 |
|
|
1830 |
if (!IsValidLocale (XINT (lcid), LCID_SUPPORTED)) |
if (!IsValidLocale (XINT (lcid), LCID_SUPPORTED)) |
1831 |
return Qnil; |
return Qnil; |
1932 |
(lcid) |
(lcid) |
1933 |
Lisp_Object lcid; |
Lisp_Object lcid; |
1934 |
{ |
{ |
1935 |
CHECK_NUMBER (lcid, 0); |
CHECK_NUMBER (lcid); |
1936 |
|
|
1937 |
if (!IsValidLocale (XINT (lcid), LCID_SUPPORTED)) |
if (!IsValidLocale (XINT (lcid), LCID_SUPPORTED)) |
1938 |
return Qnil; |
return Qnil; |
1988 |
(cp) |
(cp) |
1989 |
Lisp_Object cp; |
Lisp_Object cp; |
1990 |
{ |
{ |
1991 |
CHECK_NUMBER (cp, 0); |
CHECK_NUMBER (cp); |
1992 |
|
|
1993 |
if (!IsValidCodePage (XINT (cp))) |
if (!IsValidCodePage (XINT (cp))) |
1994 |
return Qnil; |
return Qnil; |
2015 |
(cp) |
(cp) |
2016 |
Lisp_Object cp; |
Lisp_Object cp; |
2017 |
{ |
{ |
2018 |
CHECK_NUMBER (cp, 0); |
CHECK_NUMBER (cp); |
2019 |
|
|
2020 |
if (!IsValidCodePage (XINT (cp))) |
if (!IsValidCodePage (XINT (cp))) |
2021 |
return Qnil; |
return Qnil; |
2035 |
{ |
{ |
2036 |
CHARSETINFO info; |
CHARSETINFO info; |
2037 |
|
|
2038 |
CHECK_NUMBER (cp, 0); |
CHECK_NUMBER (cp); |
2039 |
|
|
2040 |
if (!IsValidCodePage (XINT (cp))) |
if (!IsValidCodePage (XINT (cp))) |
2041 |
return Qnil; |
return Qnil; |
2093 |
{ |
{ |
2094 |
DWORD kl; |
DWORD kl; |
2095 |
|
|
2096 |
CHECK_CONS (layout, 0); |
CHECK_CONS (layout); |
2097 |
CHECK_NUMBER (XCAR (layout), 0); |
CHECK_NUMBER (XCAR (layout)); |
2098 |
CHECK_NUMBER (XCDR (layout), 0); |
CHECK_NUMBER (XCDR (layout)); |
2099 |
|
|
2100 |
kl = (XINT (XCAR (layout)) & 0xffff) |
kl = (XINT (XCAR (layout)) & 0xffff) |
2101 |
| (XINT (XCDR (layout)) << 16); |
| (XINT (XCDR (layout)) << 16); |