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

Diff of /emacs/src/data.c

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

revision 1.224.4.1 by handa, Mon Sep 8 12:48:10 2003 UTC revision 1.224.4.2 by handa, Fri Sep 26 11:20:13 2003 UTC
# Line 1929  bool-vector.  IDX starts at 0.  */) Line 1929  bool-vector.  IDX starts at 0.  */)
1929    
1930        if (idxval < 0 || idxval >= SCHARS (array))        if (idxval < 0 || idxval >= SCHARS (array))
1931          args_out_of_range (array, idx);          args_out_of_range (array, idx);
1932        CHECK_NUMBER (newelt);        CHECK_CHARACTER (newelt);
1933    
1934        nbytes = SBYTES (array);        nbytes = SBYTES (array);
1935    
# Line 1966  bool-vector.  IDX starts at 0.  */) Line 1966  bool-vector.  IDX starts at 0.  */)
1966          args_out_of_range (array, idx);          args_out_of_range (array, idx);
1967        CHECK_NUMBER (newelt);        CHECK_NUMBER (newelt);
1968    
1969        if (XINT (newelt) < 0 || ASCII_CHAR_P (XINT (newelt)))        if (XINT (newelt) < 0 || ASCII_CHAR_P (XINT (newelt))
1970              || CHAR_BYTE8_P (XINT (newelt)))
1971          SSET (array, idxval, XINT (newelt));          SSET (array, idxval, XINT (newelt));
1972        else        else
1973          {          {

Legend:
Removed from v.1.224.4.1  
changed lines
  Added in v.1.224.4.2

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