# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 732937570 0
# Node ID 36cc4399937f0d387fe95a03dbc949956e4eadbc
# Parent  2ee64176069c3d0b7db55838b448b4125ec5585a
	* keyboard.c (Fsuspend_emacs):
	Change suspend-hooks back to suspend-hook and make it a normal hook.

diff -r 2ee64176069c -r 36cc4399937f src/keyboard.c
--- a/src/keyboard.c	Tue Mar 23 18:27:03 1993 +0000
+++ b/src/keyboard.c	Wed Mar 24 01:46:10 1993 +0000
@@ -4151,17 +4151,9 @@
   if (!NILP (stuffstring))
     CHECK_STRING (stuffstring, 0);
 
-  /* Run the functions in suspend-hooks.  */
-  tem = Fsymbol_value (intern ("suspend-hooks"));
-  while (CONSP (tem))
-    {
-      Lisp_Object val;
-      GCPRO2 (stuffstring, tem);
-      val = call0 (Fcar (tem));
-      UNGCPRO;
-      tem = Fcdr (tem);
-      if (!EQ (val, Qnil)) return Qnil;
-    }
+  /* Run the functions in suspend-hook.  */
+  if (!NILP (Vrun_hooks))
+    call1 (Vrun_hooks, intern ("suspend-hook"));
 
   GCPRO1 (stuffstring);
   get_frame_size (&old_width, &old_height);
@@ -4180,8 +4172,7 @@
   if (width != old_width || height != old_height)
     change_frame_size (0, height, width, 0, 0);
 
-  /* Call value of suspend-resume-hook
-     if it is bound and value is non-nil.  */
+  /* Run suspend-resume-hook.  */
   if (!NILP (Vrun_hooks))
     call1 (Vrun_hooks, intern ("suspend-resume-hook"));