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
b27a1703
Commit
b27a1703
authored
Nov 21, 1997
by
Andreas Schwab
Browse files
(close_file_unwind): Fix return type and return nil.
(restore_point_unwind): Likewise.
parent
1d159538
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
0 deletions
+4
-0
src/fileio.c
src/fileio.c
+4
-0
No files found.
src/fileio.c
View file @
b27a1703
...
...
@@ -248,19 +248,23 @@ report_file_error (string, data)
Fcons
(
build_string
(
string
),
Fcons
(
errstring
,
data
)));
}
Lisp_Object
close_file_unwind
(
fd
)
Lisp_Object
fd
;
{
close
(
XFASTINT
(
fd
));
return
Qnil
;
}
/* Restore point, having saved it as a marker. */
Lisp_Object
restore_point_unwind
(
location
)
Lisp_Object
location
;
{
SET_PT
(
marker_position
(
location
));
Fset_marker
(
location
,
Qnil
,
Qnil
);
return
Qnil
;
}
Lisp_Object
Qexpand_file_name
;
...
...
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