# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 880728508 0
# Node ID efe9d1d6fc236a3781cf2e053a954df0c052993e
# Parent  e6db4b8d2834ef21ea73689277d85d78e1c235e5
(Fsuspend_emacs): Cast init_sys_modes when calling
record_unwind_protect.

diff -r e6db4b8d2834 -r efe9d1d6fc23 src/keyboard.c
--- a/src/keyboard.c	Fri Nov 28 14:45:07 1997 +0000
+++ b/src/keyboard.c	Fri Nov 28 14:48:28 1997 +0000
@@ -7548,7 +7548,8 @@
   reset_sys_modes ();
   /* sys_suspend can get an error if it tries to fork a subshell
      and the system resources aren't available for that.  */
-  record_unwind_protect (init_sys_modes, 0);
+  record_unwind_protect ((Lisp_Object (*) P_ ((Lisp_Object))) init_sys_modes,
+			 0);
   stuff_buffered_input (stuffstring);
   if (cannot_suspend)
     sys_subshell ();