From e9abc2965779d336833fcc683f2ebb13e762820f Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 21 Dec 2000 20:41:26 +0000 Subject: [PATCH] (Fdump_glyph_row) [GLYPH_DEBUG]: Add optional arg GLYPHS. --- src/xdisp.c | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/src/xdisp.c b/src/xdisp.c index 0410b7194f1..7051d817b2e 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -11525,13 +11525,18 @@ glyphs in short form, otherwise show glyphs in long form.") } -DEFUN ("dump-glyph-row", Fdump_glyph_row, Sdump_glyph_row, 1, 1, "", - "Dump glyph row ROW to stderr.") - (row) - Lisp_Object row; +DEFUN ("dump-glyph-row", Fdump_glyph_row, Sdump_glyph_row, 1, 2, "", + "Dump glyph row ROW to stderr.\n\ +GLYPH 0 means don't dump glyphs.\n\ +GLYPH 1 means dump glyphs in short form.\n\ +GLYPH > 1 or omitted means dump glyphs on long form.") + (row, glyphs) + Lisp_Object row, glyphs; { CHECK_NUMBER (row, 0); - dump_glyph_row (XWINDOW (selected_window)->current_matrix, XINT (row), 1); + dump_glyph_row (XWINDOW (selected_window)->current_matrix, + XINT (row), + INTEGERP (glyphs) ? XINT (glyphs) : 2); return Qnil; } -- 2.39.2