Mercurial > hg > xemacs-beta

comparison src/data.c @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents a86b2b5e0111
children de805c49cfc1
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
768 } 768 }
769 else if (STRINGP (array)) 769 else if (STRINGP (array))
770 { 770 {
771 CHECK_CHAR_COERCE_INT (newval); 771 CHECK_CHAR_COERCE_INT (newval);
772 if (idx >= XSTRING_CHAR_LENGTH (array)) goto range_error; 772 if (idx >= XSTRING_CHAR_LENGTH (array)) goto range_error;
773 set_string_char (XSTRING (array), idx, XCHAR (newval)); 773 set_string_char (XSTRING (array), idx, (unsigned char) XCHAR (newval));
774 bump_string_modiff (array); 774 bump_string_modiff (array);
775 } 775 }
776 else 776 else
777 { 777 {
778 array = wrong_type_argument (Qarrayp, array); 778 array = wrong_type_argument (Qarrayp, array);