Mercurial > emacs
changeset 37641:a1501be81cc0
(GIVE_UP): Fix for K&R C.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 09 May 2001 16:08:50 +0000 |
| parents | a4403e99257a |
| children | 3f7b95710cef |
| files | src/xdisp.c |
| diffstat | 1 files changed, 16 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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