X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/68f12411893785de1cfc2c24ec36059e49af5d55..28be1ada0fb9a4b51cf361dc45208e764bd34143:/src/composite.c

diff --git a/src/composite.c b/src/composite.c
index 6070e4070f..79942acad0 100644
--- a/src/composite.c
+++ b/src/composite.c
@@ -240,13 +240,13 @@ get_composition_id (ptrdiff_t charpos, ptrdiff_t bytepos, ptrdiff_t nchars,
 	for (i = 0; i < nchars; i++)
 	  {
 	    FETCH_STRING_CHAR_ADVANCE (ch, string, charpos, bytepos);
-	    XVECTOR (key)->contents[i] = make_number (ch);
+	    ASET (key, i, make_number (ch));
 	  }
       else
 	for (i = 0; i < nchars; i++)
 	  {
 	    FETCH_CHAR_ADVANCE (ch, charpos, bytepos);
-	    XVECTOR (key)->contents[i] = make_number (ch);
+	    ASET (key, i, make_number (ch));
 	  }
     }
   else