From b27a1703072a3cc4233d6a4d567e8a1d561a7266 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 21 Nov 1997 14:56:30 +0000 Subject: [PATCH] (close_file_unwind): Fix return type and return nil. (restore_point_unwind): Likewise. --- src/fileio.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/fileio.c b/src/fileio.c index dbeaf64435a..dfbfbb76c42 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; -- 2.39.2