From: Eli Zaretskii Date: Sat, 28 Sep 2013 08:19:33 +0000 (+0300) Subject: Fix compilation under GLYPH_DEBUG, broken by conditional tool_bar_window. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1437 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d2647e645d9965e0707d25e39e4152abfda99bf;p=emacs.git Fix compilation under GLYPH_DEBUG, broken by conditional tool_bar_window. src/xdisp.c (Fdump_tool_bar_row): Ifdef away the body if 'struct frame' does not have the tool_bar_window member. --- diff --git a/src/ChangeLog b/src/ChangeLog index a6774e30b0c..ec36db90dfa 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2013-09-28 Eli Zaretskii + + * xdisp.c (Fdump_tool_bar_row): Ifdef away the body if 'struct + frame' does not have the tool_bar_window member. + 2013-09-26 Barry O'Reilly Signal error when reading an empty byte-code object (Bug#15405) diff --git a/src/xdisp.c b/src/xdisp.c index 0dc34dfbab0..22ada204954 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -18109,9 +18109,13 @@ DEFUN ("dump-tool-bar-row", Fdump_tool_bar_row, Sdump_tool_bar_row, 1, 2, "", doc: /* Dump glyph row ROW of the tool-bar of the current frame to stderr. GLYPH 0 means don't dump glyphs. GLYPH 1 means dump glyphs in short form. -GLYPH > 1 or omitted means dump glyphs in long form. */) +GLYPH > 1 or omitted means dump glyphs in long form. + +If there's no tool-bar, or if the tool-bar is not drawn by Emacs, +do nothing. */) (Lisp_Object row, Lisp_Object glyphs) { +#if defined (HAVE_WINDOW_SYSTEM) && ! defined (USE_GTK) && ! defined (HAVE_NS) struct frame *sf = SELECTED_FRAME (); struct glyph_matrix *m = XWINDOW (sf->tool_bar_window)->current_matrix; EMACS_INT vpos; @@ -18121,6 +18125,7 @@ GLYPH > 1 or omitted means dump glyphs in long form. */) if (vpos >= 0 && vpos < m->nrows) dump_glyph_row (MATRIX_ROW (m, vpos), vpos, TYPE_RANGED_INTEGERP (int, glyphs) ? XINT (glyphs) : 2); +#endif return Qnil; }