From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 9 May 2001 16:08:50 +0000 (+0000)
Subject: (GIVE_UP): Fix for K&R C.
X-Git-Tag: emacs-pretest-21.0.104~574
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/62397849f9153bc7b8bce2a066d1b5d054f10cf5?ds=sidebyside

(GIVE_UP): Fix for K&R C.
---

diff --git a/src/xdisp.c b/src/xdisp.c
index 0f7adb3d0e..a046603852 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -11092,7 +11092,7 @@ try_window_id (w)
     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 @@ GLYPH > 1 or omitted means dump glyphs in long form.")
 }
 
 
-DEFUN ("trace-redisplay-toggle", Ftrace_redisplay_toggle,
-       Strace_redisplay_toggle, 0, 0, "",
-  "Toggle tracing of redisplay.")
-     ()
+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;
 {
-  trace_redisplay_p = !trace_redisplay_p;
+  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 @@ syms_of_xdisp ()
   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