diff options
-rw-r--r-- | src/fileio.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/fileio.c b/src/fileio.c index dbeaf64435..dfbfbb76c4 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -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; |