Mercurial > emacs
changeset 14072:d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Tue, 09 Jan 1996 00:31:41 +0000 |
| parents | 59906ecd9b92 |
| children | 0df4b4f2a2a1 |
| files | src/emacs.c |
| diffstat | 1 files changed, 16 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/src/emacs.c Tue Jan 09 00:31:34 1996 +0000 +++ b/src/emacs.c Tue Jan 09 00:31:41 1996 +0000 @@ -1261,14 +1261,14 @@ DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0, "Dump current state of Emacs into data file FILENAME.\n\ This function exists on systems that use HAVE_SHM.") - (intoname) - Lisp_Object intoname; + (filename) + Lisp_Object filename; { extern char my_edata[]; Lisp_Object tem; - CHECK_STRING (intoname, 0); - intoname = Fexpand_file_name (intoname, Qnil); + CHECK_STRING (filename, 0); + filename = Fexpand_file_name (filename, Qnil); tem = Vpurify_flag; Vpurify_flag = Qnil; @@ -1279,7 +1279,7 @@ #ifndef SYSTEM_MALLOC memory_warnings (my_edata, malloc_warning); #endif - map_out_data (XSTRING (intoname)->data); + map_out_data (XSTRING (filename)->data); Vpurify_flag = tem; @@ -1296,19 +1296,19 @@ 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.") - (intoname, symname) - Lisp_Object intoname, symname; + (filename, symfile) + Lisp_Object filename, symfile; { extern char my_edata[]; Lisp_Object tem; - CHECK_STRING (intoname, 0); - intoname = Fexpand_file_name (intoname, Qnil); - if (!NILP (symname)) + CHECK_STRING (filename, 0); + filename = Fexpand_file_name (filename, Qnil); + if (!NILP (symfile)) { - CHECK_STRING (symname, 0); - if (XSTRING (symname)->size) - symname = Fexpand_file_name (symname, Qnil); + CHECK_STRING (symfile, 0); + if (XSTRING (symfile)->size) + symfile = Fexpand_file_name (symfile, Qnil); } tem = Vpurify_flag; @@ -1316,7 +1316,7 @@ fflush (stdout); #ifdef VMS - mapout_data (XSTRING (intoname)->data); + mapout_data (XSTRING (filename)->data); #else /* Tell malloc where start of impure now is */ /* Also arrange for warnings when nearly out of space. */ @@ -1327,8 +1327,8 @@ memory_warnings (my_edata, malloc_warning); #endif /* not WINDOWSNT */ #endif - unexec (XSTRING (intoname)->data, - !NILP (symname) ? XSTRING (symname)->data : 0, my_edata, 0, 0); + unexec (XSTRING (filename)->data, + !NILP (symfile) ? XSTRING (symfile)->data : 0, my_edata, 0, 0); #endif /* not VMS */ Vpurify_flag = tem;