# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 989424530 0
# Node ID a1501be81cc0a24d3f0ecded225b515fd9c82fa4
# Parent  a4403e99257aed49531bfc4e644157ffe963057e
(GIVE_UP): Fix for K&R C.

diff -r a4403e99257a -r a1501be81cc0 src/xdisp.c
--- a/src/xdisp.c	Wed May 09 15:44:18 2001 +0000
+++ b/src/xdisp.c	Wed May 09 16:08:50 2001 +0000
@@ -11092,7 +11092,7 @@
     return 0;							\
   } while (0)
 #else
-  #define GIVE_UP(X) return 0
+#define GIVE_UP(X) return 0
 #endif
   
   SET_TEXT_POS_FROM_MARKER (start, w->start);
@@ -11981,12 +11981,20 @@
 }
 
 
-DEFUN ("trace-redisplay-toggle", Ftrace_redisplay_toggle,
-       Strace_redisplay_toggle, 0, 0, "",
-  "Toggle tracing of redisplay.")
-     ()
-{
-  trace_redisplay_p = !trace_redisplay_p;
+DEFUN ("trace-redisplay", Ftrace_redisplay, Strace_redisplay, 0, 1, "P",
+  "Toggle tracing of redisplay.\n\
+With ARG, turn tracing on if and only if ARG is positive.")
+  (arg)
+     Lisp_Object arg;
+{
+  if (NILP (arg))
+    trace_redisplay_p = !trace_redisplay_p;
+  else
+    {
+      arg = Fprefix_numeric_value (arg);
+      trace_redisplay_p = XINT (arg) > 0;
+    }
+  
   return Qnil;
 }
 
@@ -14328,7 +14336,7 @@
   defsubr (&Sdump_glyph_matrix);
   defsubr (&Sdump_glyph_row);
   defsubr (&Sdump_tool_bar_row);
-  defsubr (&Strace_redisplay_toggle);
+  defsubr (&Strace_redisplay);
   defsubr (&Strace_to_stderr);
 #endif
 #ifdef HAVE_WINDOW_SYSTEM