X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/0000d0d54bb9cbc835172d9f5f8ff7595786af62..3438fe218c77633ee2c5f106e3a335f906347247:/src/callint.c

diff --git a/src/callint.c b/src/callint.c
index 4454b1fdb1..4b53b5df34 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -888,7 +888,7 @@ syms_of_callint (void)
   callint_message = Qnil;
   staticpro (&callint_message);
 
-  preserved_fns = listn (PURE, 4,
+  preserved_fns = listn (CONSTYPE_PURE, 4,
 			 intern_c_string ("region-beginning"),
 			 intern_c_string ("region-end"),
 			 intern_c_string ("point"),