diff options
author | Andreas Schwab <[email protected]> | 1997-11-21 14:56:30 +0000 |
---|---|---|
committer | Andreas Schwab <[email protected]> | 1997-11-21 14:56:30 +0000 |
commit | b27a1703072a3cc4233d6a4d567e8a1d561a7266 (patch) | |
tree | b93c684891170c059f7a3218b91a4e899db69595 /src/fileio.c | |
parent | 1d159538f41bc306aef1ade9470abbd03ab16b9a (diff) |
(close_file_unwind): Fix return type and return nil.
(restore_point_unwind): Likewise.
Diffstat (limited to 'src/fileio.c')
-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; |