# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 880124190 0
# Node ID 36bbb5e0a687c7e652ff9427f9746f644aeb2203
# Parent  d75a1b915e20b74c5a6b0c555b9d370ad0cfeb6a
(close_file_unwind): Fix return type and return nil.
(restore_point_unwind): Likewise.

diff -r d75a1b915e20 -r 36bbb5e0a687 src/fileio.c
--- a/src/fileio.c	Fri Nov 21 14:54:13 1997 +0000
+++ b/src/fileio.c	Fri Nov 21 14:56:30 1997 +0000
@@ -248,19 +248,23 @@
 	     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;