Commit b27a1703 authored by Andreas Schwab's avatar Andreas Schwab

(close_file_unwind): Fix return type and return nil.

(restore_point_unwind): Likewise.
parent 1d159538
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment