Fixed unsafe and incorrect use of record_unwind_protect in Fsuspend_emacs.

src/keyboard.c (Fsuspend_emacs): Pass init_all_sys_modes, not
init_sys_modes to record_unwind_protect.

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-66

1 files changed, 2 insertions, 2 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index b6f1dfa071f..4e0786ec1c9 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -10142,8 +10142,8 @@ On such systems, Emacs starts a subshell instead of suspending.  */)
   reset_all_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 ((Lisp_Object (*) P_ ((Lisp_Object))) init_sys_modes,
-                         (Lisp_Object)CURTTY()); /* XXX */
+  record_unwind_protect ((Lisp_Object (*) P_ ((Lisp_Object))) init_all_sys_modes,
+                         Qnil);
   stuff_buffered_input (stuffstring);
   if (cannot_suspend)
     sys_subshell ();