From 1b7ddf4f7548c538cc97d0eda41782488007a93e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 23 Jun 1997 01:37:22 +0000 Subject: [PATCH] (Fdump_emacs): Bind command-line-processed to nil here. --- src/emacs.c | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/src/emacs.c b/src/emacs.c index 67f78ff1540..31a2b6995e0 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -1486,20 +1486,24 @@ DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0, Take symbols from SYMFILE (presumably the file you executed to run Emacs).\n\ This is used in the file `loadup.el' when building Emacs.\n\ \n\ -Bind `command-line-processed' to nil before dumping,\n\ -if you want the dumped Emacs to process its command line\n\ -and announce itself normally when it is run.\n\ -\n\ You must run Emacs in batch mode in order to dump it.") (filename, symfile) Lisp_Object filename, symfile; { extern char my_edata[]; Lisp_Object tem; + Lisp_Object symbol; + int count = specpdl_ptr - specpdl; if (! noninteractive) error ("Dumping Emacs works only in batch mode"); + /* Bind `command-line-processed' to nil before dumping, + so that the dumped Emacs will process its command line + and set up to work with X windows if appropriate. */ + symbol = intern ("command-line-process"); + specbind (symbol, Qnil); + CHECK_STRING (filename, 0); filename = Fexpand_file_name (filename, Qnil); if (!NILP (symfile)) @@ -1545,7 +1549,7 @@ You must run Emacs in batch mode in order to dump it.") Vpurify_flag = tem; - return Qnil; + return unbind_to (count, Qnil); } #endif /* not HAVE_SHM */ -- 2.39.2