From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 21 Dec 2000 20:41:26 +0000 (+0000)
Subject: (Fdump_glyph_row) [GLYPH_DEBUG]: Add optional arg
X-Git-Tag: emacs-pretest-21.0.95~331
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9abc2965779d336833fcc683f2ebb13e762820f;p=emacs.git

(Fdump_glyph_row) [GLYPH_DEBUG]: Add optional arg
GLYPHS.
---

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