Merge branch 'master' into xwidget

1 files changed, 2 insertions, 2 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 2c7b02f1158..bf0456c6862 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3175,9 +3175,9 @@ allocate_pseudovector (int memlen, int lisplen,
   eassert (lisplen <= (1 << PSEUDOVECTOR_SIZE_BITS) - 1);
 
   /* Only the first LISPLEN slots will be traced normally by the GC.
-     But since Qnil == 0, we can memset Lisp_Object slots as well.  */
+     Since Qnil == 0, we can memset Lisp and non-Lisp data at one go.  */
   verify (NIL_IS_ZERO);
-  memset (v->contents, 0, zerolen * word_size);
+  memsetnil (v->contents, zerolen);
 
   XSETPVECTYPESIZE (v, tag, lisplen, memlen - lisplen);
   return v;