X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/e60b0c44028ef49c94e4549b7f6e045f4ea87da4..ca70e62febbbb5315ba2908f5a1d189635039928:/src/alloc.c

diff --git a/src/alloc.c b/src/alloc.c
index 4a276a4cc1..067dd7b753 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3837,14 +3837,14 @@ pure_alloc (size, type)
 }
 
 
-/* Signal an error if PURESIZE is too small.  */
+/* Print a warning if PURESIZE is too small.  */
 
 void
 check_pure_size ()
 {
   if (pure_bytes_used_before_overflow)
-    error ("Pure Lisp storage overflow (approx. %d bytes needed)",
-	   (int) (pure_bytes_used + pure_bytes_used_before_overflow));
+    message ("Pure Lisp storage overflow (approx. %d bytes needed)",
+	     (int) (pure_bytes_used + pure_bytes_used_before_overflow));
 }