From 7fc2b2d0bb560007a3dbd865160726bcc4a7c5d8 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 4 Oct 2001 09:48:56 +0000 Subject: [PATCH] (Fdump_emacs_data, Fdump_emacs): Call check_pure_size. --- src/emacs.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/emacs.c b/src/emacs.c index 924eeee8cf9..5e00e8f4e54 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -1940,6 +1940,7 @@ This function exists on systems that use HAVE_SHM.") extern char my_edata[]; Lisp_Object tem; + check_pure_size (); CHECK_STRING (filename, 0); filename = Fexpand_file_name (filename, Qnil); @@ -1973,7 +1974,9 @@ You must run Emacs in batch mode in order to dump it.") extern char my_edata[]; Lisp_Object tem; Lisp_Object symbol; - int count = specpdl_ptr - specpdl; + int count = BINDING_STACK_SIZE (); + + check_pure_size (); if (! noninteractive) error ("Dumping Emacs works only in batch mode"); -- 2.39.5