Mercurial > emacs
changeset 20313:36bbb5e0a687
(close_file_unwind): Fix return type and return nil.
(restore_point_unwind): Likewise.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Fri, 21 Nov 1997 14:56:30 +0000 |
| parents | d75a1b915e20 |
| children | 3fb425cf6a83 |
| files | src/fileio.c |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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;