Mercurial > emacs
comparison src/emacs.c @ 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 | 09cb73d0ec41 |
children | ebaba7107594 |
comparison
equal
deleted
inserted
replaced
14071:59906ecd9b92 | 14072:d6f46c53f2aa |
---|---|
1259 #ifdef HAVE_SHM | 1259 #ifdef HAVE_SHM |
1260 | 1260 |
1261 DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0, | 1261 DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0, |
1262 "Dump current state of Emacs into data file FILENAME.\n\ | 1262 "Dump current state of Emacs into data file FILENAME.\n\ |
1263 This function exists on systems that use HAVE_SHM.") | 1263 This function exists on systems that use HAVE_SHM.") |
1264 (intoname) | 1264 (filename) |
1265 Lisp_Object intoname; | 1265 Lisp_Object filename; |
1266 { | 1266 { |
1267 extern char my_edata[]; | 1267 extern char my_edata[]; |
1268 Lisp_Object tem; | 1268 Lisp_Object tem; |
1269 | 1269 |
1270 CHECK_STRING (intoname, 0); | 1270 CHECK_STRING (filename, 0); |
1271 intoname = Fexpand_file_name (intoname, Qnil); | 1271 filename = Fexpand_file_name (filename, Qnil); |
1272 | 1272 |
1273 tem = Vpurify_flag; | 1273 tem = Vpurify_flag; |
1274 Vpurify_flag = Qnil; | 1274 Vpurify_flag = Qnil; |
1275 | 1275 |
1276 fflush (stdout); | 1276 fflush (stdout); |
1277 /* Tell malloc where start of impure now is */ | 1277 /* Tell malloc where start of impure now is */ |
1278 /* Also arrange for warnings when nearly out of space. */ | 1278 /* Also arrange for warnings when nearly out of space. */ |
1279 #ifndef SYSTEM_MALLOC | 1279 #ifndef SYSTEM_MALLOC |
1280 memory_warnings (my_edata, malloc_warning); | 1280 memory_warnings (my_edata, malloc_warning); |
1281 #endif | 1281 #endif |
1282 map_out_data (XSTRING (intoname)->data); | 1282 map_out_data (XSTRING (filename)->data); |
1283 | 1283 |
1284 Vpurify_flag = tem; | 1284 Vpurify_flag = tem; |
1285 | 1285 |
1286 return Qnil; | 1286 return Qnil; |
1287 } | 1287 } |
1294 This is used in the file `loadup.el' when building Emacs.\n\ | 1294 This is used in the file `loadup.el' when building Emacs.\n\ |
1295 \n\ | 1295 \n\ |
1296 Bind `command-line-processed' to nil before dumping,\n\ | 1296 Bind `command-line-processed' to nil before dumping,\n\ |
1297 if you want the dumped Emacs to process its command line\n\ | 1297 if you want the dumped Emacs to process its command line\n\ |
1298 and announce itself normally when it is run.") | 1298 and announce itself normally when it is run.") |
1299 (intoname, symname) | 1299 (filename, symfile) |
1300 Lisp_Object intoname, symname; | 1300 Lisp_Object filename, symfile; |
1301 { | 1301 { |
1302 extern char my_edata[]; | 1302 extern char my_edata[]; |
1303 Lisp_Object tem; | 1303 Lisp_Object tem; |
1304 | 1304 |
1305 CHECK_STRING (intoname, 0); | 1305 CHECK_STRING (filename, 0); |
1306 intoname = Fexpand_file_name (intoname, Qnil); | 1306 filename = Fexpand_file_name (filename, Qnil); |
1307 if (!NILP (symname)) | 1307 if (!NILP (symfile)) |
1308 { | 1308 { |
1309 CHECK_STRING (symname, 0); | 1309 CHECK_STRING (symfile, 0); |
1310 if (XSTRING (symname)->size) | 1310 if (XSTRING (symfile)->size) |
1311 symname = Fexpand_file_name (symname, Qnil); | 1311 symfile = Fexpand_file_name (symfile, Qnil); |
1312 } | 1312 } |
1313 | 1313 |
1314 tem = Vpurify_flag; | 1314 tem = Vpurify_flag; |
1315 Vpurify_flag = Qnil; | 1315 Vpurify_flag = Qnil; |
1316 | 1316 |
1317 fflush (stdout); | 1317 fflush (stdout); |
1318 #ifdef VMS | 1318 #ifdef VMS |
1319 mapout_data (XSTRING (intoname)->data); | 1319 mapout_data (XSTRING (filename)->data); |
1320 #else | 1320 #else |
1321 /* Tell malloc where start of impure now is */ | 1321 /* Tell malloc where start of impure now is */ |
1322 /* Also arrange for warnings when nearly out of space. */ | 1322 /* Also arrange for warnings when nearly out of space. */ |
1323 #ifndef SYSTEM_MALLOC | 1323 #ifndef SYSTEM_MALLOC |
1324 #ifndef WINDOWSNT | 1324 #ifndef WINDOWSNT |
1325 /* On Windows, this was done before dumping, and that once suffices. | 1325 /* On Windows, this was done before dumping, and that once suffices. |
1326 Meanwhile, my_edata is not valid on Windows. */ | 1326 Meanwhile, my_edata is not valid on Windows. */ |
1327 memory_warnings (my_edata, malloc_warning); | 1327 memory_warnings (my_edata, malloc_warning); |
1328 #endif /* not WINDOWSNT */ | 1328 #endif /* not WINDOWSNT */ |
1329 #endif | 1329 #endif |
1330 unexec (XSTRING (intoname)->data, | 1330 unexec (XSTRING (filename)->data, |
1331 !NILP (symname) ? XSTRING (symname)->data : 0, my_edata, 0, 0); | 1331 !NILP (symfile) ? XSTRING (symfile)->data : 0, my_edata, 0, 0); |
1332 #endif /* not VMS */ | 1332 #endif /* not VMS */ |
1333 | 1333 |
1334 Vpurify_flag = tem; | 1334 Vpurify_flag = tem; |
1335 | 1335 |
1336 return Qnil; | 1336 return Qnil; |