mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 19:10:37 -08:00
Code Issues Projects Releases Wiki Activity

(Fdump_glyph_row) [GLYPH_DEBUG]: Add optional arg

Browse source 
GLYPHS.
This commit is contained in:
Gerd Moellmann 2000-12-21 20:41:26 +00:00
parent 726950c4dc
commit e9abc29657
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/xdisp.c
View file

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