procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(GIVE_UP): Fix for K&R C.

Browse source
This commit is contained in:
Gerd Moellmann 2001-05-09 16:08:50 +00:00
parent 94f8f5d38e
commit 62397849f9
1 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/xdisp.c
View file

@ -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