Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c9aae259
Commit
c9aae259
authored
Jan 09, 1996
by
Erik Naggum
Browse files
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
parent
2591ec64
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
16 deletions
+16
-16
src/emacs.c
src/emacs.c
+16
-16
No files found.
src/emacs.c
View file @
c9aae259
...
...
@@ -1261,14 +1261,14 @@ shut_down_emacs (sig, no_x, stuff)
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."
)
(
into
name
)
Lisp_Object
into
name
;
(
file
name
)
Lisp_Object
file
name
;
{
extern
char
my_edata
[];
Lisp_Object
tem
;
CHECK_STRING
(
into
name
,
0
);
into
name
=
Fexpand_file_name
(
into
name
,
Qnil
);
CHECK_STRING
(
file
name
,
0
);
file
name
=
Fexpand_file_name
(
file
name
,
Qnil
);
tem
=
Vpurify_flag
;
Vpurify_flag
=
Qnil
;
...
...
@@ -1279,7 +1279,7 @@ This function exists on systems that use HAVE_SHM.")
#ifndef SYSTEM_MALLOC
memory_warnings
(
my_edata
,
malloc_warning
);
#endif
map_out_data
(
XSTRING
(
into
name
)
->
data
);
map_out_data
(
XSTRING
(
file
name
)
->
data
);
Vpurify_flag
=
tem
;
...
...
@@ -1296,19 +1296,19 @@ This is used in the file `loadup.el' when building Emacs.\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."
)
(
into
name
,
sym
nam
e
)
Lisp_Object
into
name
,
sym
nam
e
;
(
file
name
,
sym
fil
e
)
Lisp_Object
file
name
,
sym
fil
e
;
{
extern
char
my_edata
[];
Lisp_Object
tem
;
CHECK_STRING
(
into
name
,
0
);
into
name
=
Fexpand_file_name
(
into
name
,
Qnil
);
if
(
!
NILP
(
sym
nam
e
))
CHECK_STRING
(
file
name
,
0
);
file
name
=
Fexpand_file_name
(
file
name
,
Qnil
);
if
(
!
NILP
(
sym
fil
e
))
{
CHECK_STRING
(
sym
nam
e
,
0
);
if
(
XSTRING
(
sym
nam
e
)
->
size
)
sym
nam
e
=
Fexpand_file_name
(
sym
nam
e
,
Qnil
);
CHECK_STRING
(
sym
fil
e
,
0
);
if
(
XSTRING
(
sym
fil
e
)
->
size
)
sym
fil
e
=
Fexpand_file_name
(
sym
fil
e
,
Qnil
);
}
tem
=
Vpurify_flag
;
...
...
@@ -1316,7 +1316,7 @@ and announce itself normally when it is run.")
fflush
(
stdout
);
#ifdef VMS
mapout_data
(
XSTRING
(
into
name
)
->
data
);
mapout_data
(
XSTRING
(
file
name
)
->
data
);
#else
/* Tell malloc where start of impure now is */
/* Also arrange for warnings when nearly out of space. */
...
...
@@ -1327,8 +1327,8 @@ and announce itself normally when it is run.")
memory_warnings
(
my_edata
,
malloc_warning
);
#endif
/* not WINDOWSNT */
#endif
unexec
(
XSTRING
(
into
name
)
->
data
,
!
NILP
(
sym
nam
e
)
?
XSTRING
(
sym
nam
e
)
->
data
:
0
,
my_edata
,
0
,
0
);
unexec
(
XSTRING
(
file
name
)
->
data
,
!
NILP
(
sym
fil
e
)
?
XSTRING
(
sym
fil
e
)
->
data
:
0
,
my_edata
,
0
,
0
);
#endif
/* not VMS */
Vpurify_flag
=
tem
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment