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
0eff1f85
Commit
0eff1f85
authored
Aug 17, 1997
by
Richard M. Stallman
Browse files
(Fdo_auto_save): If open fails, make lispstream nil.
parent
99bf72f2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
6 deletions
+10
-6
src/fileio.c
src/fileio.c
+10
-6
No files found.
src/fileio.c
View file @
0eff1f85
...
...
@@ -4536,12 +4536,16 @@ A non-nil CURRENT-ONLY argument means save only current buffer.")
Lisp_Object
listfile
;
listfile
=
Fexpand_file_name
(
Vauto_save_list_file_name
,
Qnil
);
stream
=
fopen
(
XSTRING
(
listfile
)
->
data
,
"w"
);
/* Arrange to close that file whether or not we get an error.
Also reset auto_saving to 0. */
lispstream
=
Fcons
(
Qnil
,
Qnil
);
XSETFASTINT
(
XCONS
(
lispstream
)
->
car
,
(
EMACS_UINT
)
stream
>>
16
);
XSETFASTINT
(
XCONS
(
lispstream
)
->
cdr
,
(
EMACS_UINT
)
stream
&
0xffff
);
if
(
stream
!=
NULL
)
{
/* Arrange to close that file whether or not we get an error.
Also reset auto_saving to 0. */
lispstream
=
Fcons
(
Qnil
,
Qnil
);
XSETFASTINT
(
XCONS
(
lispstream
)
->
car
,
(
EMACS_UINT
)
stream
>>
16
);
XSETFASTINT
(
XCONS
(
lispstream
)
->
cdr
,
(
EMACS_UINT
)
stream
&
0xffff
);
}
else
lispstream
=
Qnil
;
}
else
{
...
...
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