From 30f95089ed1c8b84dd111fc5edf07b8de07401b2 Mon Sep 17 00:00:00 2001
From: Stefan Monnier
Date: Fri, 16 Nov 2007 20:36:34 +0000
Subject: * alloc.c (ALLOCATE_PSEUDOVECTOR): Move to lisp.h.
 (allocate_pseudovector): Make non-static. * lisp.h (enum pvec_type): New tag
 PVEC_OTHER. (allocate_pseudovector): Declare. (ALLOCATE_PSEUDOVECTOR): Move
 from alloc.c

---
 src/alloc.c | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'src/alloc.c')

diff --git a/src/alloc.c b/src/alloc.c
index 12b7ac5e0bf..52565255a1d 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2967,7 +2967,7 @@ allocate_vector (nslots)
 
 /* Allocate other vector-like structures.  */
 
-static struct Lisp_Vector *
+struct Lisp_Vector *
 allocate_pseudovector (memlen, lisplen, tag)
      int memlen, lisplen;
      EMACS_INT tag;
@@ -2983,10 +2983,6 @@ allocate_pseudovector (memlen, lisplen, tag)
   XSETPVECTYPE (v, tag);	/* Add the appropriate tag.  */
   return v;
 }
-#define ALLOCATE_PSEUDOVECTOR(typ,field,tag)				\
-  ((typ*)								\
-   allocate_pseudovector						\
-       (VECSIZE (typ), PSEUDOVECSIZE (typ, field), tag))
 
 struct Lisp_Hash_Table *
 allocate_hash_table (void)
-- 
cgit v1.2.1