[Emacs-diffs] Changes to emacs/src/data.c [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/src/data.c
diff -c emacs/src/data.c:1.224.4.1 emacs/src/data.c:1.224.4.2
*** emacs/src/data.c:1.224.4.1  Mon Sep  8 08:48:10 2003
--- emacs/src/data.c    Fri Sep 26 07:20:13 2003
***************
*** 1929,1935 ****
  
        if (idxval < 0 || idxval >= SCHARS (array))
        args_out_of_range (array, idx);
!       CHECK_NUMBER (newelt);
  
        nbytes = SBYTES (array);
  
--- 1929,1935 ----
  
        if (idxval < 0 || idxval >= SCHARS (array))
        args_out_of_range (array, idx);
!       CHECK_CHARACTER (newelt);
  
        nbytes = SBYTES (array);
  
***************
*** 1966,1972 ****
        args_out_of_range (array, idx);
        CHECK_NUMBER (newelt);
  
!       if (XINT (newelt) < 0 || ASCII_CHAR_P (XINT (newelt)))
        SSET (array, idxval, XINT (newelt));
        else
        {
--- 1966,1973 ----
        args_out_of_range (array, idx);
        CHECK_NUMBER (newelt);
  
!       if (XINT (newelt) < 0 || ASCII_CHAR_P (XINT (newelt))
!         || CHAR_BYTE8_P (XINT (newelt)))
        SSET (array, idxval, XINT (newelt));
        else
        {