Mercurial > emacs
changeset 34801:803bee3aa2bd
(Fdump_glyph_row) [GLYPH_DEBUG]: Add optional arg
GLYPHS.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 21 Dec 2000 20:41:26 +0000 |
| parents | 075528550112 |
| children | d0237aa9a10d |
| files | src/xdisp.c |
| diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xdisp.c Thu Dec 21 20:40:58 2000 +0000 +++ b/src/xdisp.c Thu Dec 21 20:41:26 2000 +0000 @@ -11525,13 +11525,18 @@ } -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; }