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

Diff of /emacs/src/lread.c

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

revision 1.267 by gerd, Wed Oct 31 13:33:36 2001 UTC revision 1.268 by pj, Fri Nov 2 20:30:11 2001 UTC
# Line 644  Return t if file exists.") Line 644  Return t if file exists.")
644    fmode = "rt";    fmode = "rt";
645  #endif /* DOS_NT */  #endif /* DOS_NT */
646    
647    CHECK_STRING (file, 0);    CHECK_STRING (file);
648    
649    /* If file name is magic, call the handler.  */    /* If file name is magic, call the handler.  */
650    /* This shouldn't be necessary any more now that `openp' handles it right.    /* This shouldn't be necessary any more now that `openp' handles it right.
# Line 966  openp (path, str, suffixes, storeptr, ex Line 966  openp (path, str, suffixes, storeptr, ex
966    
967    for (tail = suffixes; CONSP (tail); tail = XCDR (tail))    for (tail = suffixes; CONSP (tail); tail = XCDR (tail))
968      {      {
969        CHECK_STRING (XCAR (tail), 0);        CHECK_STRING (XCAR (tail));
970        max_suffix_len = max (max_suffix_len,        max_suffix_len = max (max_suffix_len,
971                              STRING_BYTES (XSTRING (XCAR (tail))));                              STRING_BYTES (XSTRING (XCAR (tail))));
972      }      }
# Line 1450  START and END optionally delimit a subst Line 1450  START and END optionally delimit a subst
1450    int startval, endval;    int startval, endval;
1451    Lisp_Object tem;    Lisp_Object tem;
1452    
1453    CHECK_STRING (string,0);    CHECK_STRING (string);
1454    
1455    if (NILP (end))    if (NILP (end))
1456      endval = XSTRING (string)->size;      endval = XSTRING (string)->size;
1457    else    else
1458      {      {
1459        CHECK_NUMBER (end, 2);        CHECK_NUMBER (end);
1460        endval = XINT (end);        endval = XINT (end);
1461        if (endval < 0 || endval > XSTRING (string)->size)        if (endval < 0 || endval > XSTRING (string)->size)
1462          args_out_of_range (string, end);          args_out_of_range (string, end);
# Line 1466  START and END optionally delimit a subst Line 1466  START and END optionally delimit a subst
1466      startval = 0;      startval = 0;
1467    else    else
1468      {      {
1469        CHECK_NUMBER (start, 1);        CHECK_NUMBER (start);
1470        startval = XINT (start);        startval = XINT (start);
1471        if (startval < 0 || startval > endval)        if (startval < 0 || startval > endval)
1472          args_out_of_range (string, start);          args_out_of_range (string, start);
# Line 2938  it defaults to the value of `obarray'.") Line 2938  it defaults to the value of `obarray'.")
2938    if (NILP (obarray)) obarray = Vobarray;    if (NILP (obarray)) obarray = Vobarray;
2939    obarray = check_obarray (obarray);    obarray = check_obarray (obarray);
2940    
2941    CHECK_STRING (string, 0);    CHECK_STRING (string);
2942    
2943    tem = oblookup (obarray, XSTRING (string)->data,    tem = oblookup (obarray, XSTRING (string)->data,
2944                    XSTRING (string)->size,                    XSTRING (string)->size,
# Line 2988  it defaults to the value of `obarray'.") Line 2988  it defaults to the value of `obarray'.")
2988    
2989    if (!SYMBOLP (name))    if (!SYMBOLP (name))
2990      {      {
2991        CHECK_STRING (name, 0);        CHECK_STRING (name);
2992        string = XSTRING (name);        string = XSTRING (name);
2993      }      }
2994    else    else
# Line 3020  OBARRAY defaults to the value of the var Line 3020  OBARRAY defaults to the value of the var
3020      XSETSTRING (string, XSYMBOL (name)->name);      XSETSTRING (string, XSYMBOL (name)->name);
3021    else    else
3022      {      {
3023        CHECK_STRING (name, 0);        CHECK_STRING (name);
3024        string = name;        string = name;
3025      }      }
3026    
# Line 3141  map_obarray (obarray, fn, arg) Line 3141  map_obarray (obarray, fn, arg)
3141  {  {
3142    register int i;    register int i;
3143    register Lisp_Object tail;    register Lisp_Object tail;
3144    CHECK_VECTOR (obarray, 1);    CHECK_VECTOR (obarray);
3145    for (i = XVECTOR (obarray)->size - 1; i >= 0; i--)    for (i = XVECTOR (obarray)->size - 1; i >= 0; i--)
3146      {      {
3147        tail = XVECTOR (obarray)->contents[i];        tail = XVECTOR (obarray)->contents[i];

Legend:
Removed from v.1.267  
changed lines
  Added in v.1.268

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