Commit 62397849 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(GIVE_UP): Fix for K&R C.

parent 94f8f5d3
...@@ -11092,7 +11092,7 @@ try_window_id (w) ...@@ -11092,7 +11092,7 @@ try_window_id (w)
return 0; \ return 0; \
} while (0) } while (0)
#else #else
#define GIVE_UP(X) return 0 #define GIVE_UP(X) return 0
#endif #endif
SET_TEXT_POS_FROM_MARKER (start, w->start); SET_TEXT_POS_FROM_MARKER (start, w->start);
...@@ -11981,12 +11981,20 @@ GLYPH > 1 or omitted means dump glyphs in long form.") ...@@ -11981,12 +11981,20 @@ GLYPH > 1 or omitted means dump glyphs in long form.")
} }
DEFUN ("trace-redisplay-toggle", Ftrace_redisplay_toggle, DEFUN ("trace-redisplay", Ftrace_redisplay, Strace_redisplay, 0, 1, "P",
Strace_redisplay_toggle, 0, 0, "", "Toggle tracing of redisplay.\n\
"Toggle tracing of redisplay.") 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; return Qnil;
} }
...@@ -14328,7 +14336,7 @@ syms_of_xdisp () ...@@ -14328,7 +14336,7 @@ syms_of_xdisp ()
defsubr (&Sdump_glyph_matrix); defsubr (&Sdump_glyph_matrix);
defsubr (&Sdump_glyph_row); defsubr (&Sdump_glyph_row);
defsubr (&Sdump_tool_bar_row); defsubr (&Sdump_tool_bar_row);
defsubr (&Strace_redisplay_toggle); defsubr (&Strace_redisplay);
defsubr (&Strace_to_stderr); defsubr (&Strace_to_stderr);
#endif #endif
#ifdef HAVE_WINDOW_SYSTEM #ifdef HAVE_WINDOW_SYSTEM
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment