/[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.43 by monnier, Fri Oct 12 03:26:20 2001 UTC revision 1.44 by pj, Fri Nov 2 20:35:25 2001 UTC
# Line 1712  All path elements in FILENAME are conver Line 1712  All path elements in FILENAME are conver
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);
# Line 1737  All path elements in FILENAME are conver Line 1737  All path elements in FILENAME are conver
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);
# Line 1766  If successful, the return value is t, ot Line 1766  If successful, the return value is t, ot
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
# Line 1825  If LCID (a 16-bit number) is not a valid Line 1825  If LCID (a 16-bit number) is not a valid
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;
# Line 1932  If successful, the new locale id is retu Line 1932  If successful, the new locale id is retu
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;
# Line 1988  If successful, the new CP is returned, o Line 1988  If successful, the new CP is returned, o
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;
# Line 2015  If successful, the new CP is returned, o Line 2015  If successful, the new CP is returned, o
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;
# Line 2035  Returns nil if the codepage is not valid Line 2035  Returns nil if the codepage is not valid
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;
# Line 2093  If successful, the new layout id is retu Line 2093  If successful, the new layout id is retu
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);

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

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