1 files changed, 4 insertions, 4 deletions

diff --git a/src/w32uniscribe.c b/src/w32uniscribe.c
index 5d160b9d42f..c153c8f3565 100644
--- a/src/w32uniscribe.c
+++ b/src/w32uniscribe.c
@@ -1,5 +1,5 @@
 /* Font backend for the Microsoft W32 Uniscribe API.
-   Copyright (C) 2008-2012 Free Software Foundation, Inc.
+   Copyright (C) 2008-2013 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -333,7 +333,7 @@ uniscribe_shape (Lisp_Object lgstring)
 
                   if (NILP (lglyph))
                     {
-                      lglyph = Fmake_vector (make_number (LGLYPH_SIZE), Qnil);
+                      lglyph = LGLYPH_NEW ();
                       LGSTRING_SET_GLYPH (lgstring, lglyph_index, lglyph);
                     }
                   /* Copy to a 32-bit data type to shut up the
@@ -435,8 +435,8 @@ uniscribe_shape (Lisp_Object lgstring)
                          are zero.  */
                       || (!attributes[j].fClusterStart && items[i].a.fRTL))
                     {
-                      Lisp_Object vec;
-                      vec = Fmake_vector (make_number (3), Qnil);
+                      Lisp_Object vec = make_uninit_vector (3);
+
                       if (items[i].a.fRTL)
                         {
                           /* Empirically, it looks like Uniscribe