aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorEli Zaretskii2013-09-28 11:19:33 +0300
committerEli Zaretskii2013-09-28 11:19:33 +0300
commit0d2647e645d9965e0707d25e39e4152abfda99bf (patch)
tree656a3cba51a16d54c216111ce526c97dbb218603 /src
parent4d2e94d172aa4a4f49b716c5c1c14293d6efa1f8 (diff)
downloademacs-0d2647e645d9965e0707d25e39e4152abfda99bf.tar.gz
emacs-0d2647e645d9965e0707d25e39e4152abfda99bf.zip
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.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/xdisp.c7
2 files changed, 11 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index a6774e30b0c..ec36db90dfa 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
12013-09-28 Eli Zaretskii <eliz@gnu.org>
2
3 * xdisp.c (Fdump_tool_bar_row): Ifdef away the body if 'struct
4 frame' does not have the tool_bar_window member.
5
12013-09-26 Barry O'Reilly <gundaetiapo@gmail.com> 62013-09-26 Barry O'Reilly <gundaetiapo@gmail.com>
2 7
3 Signal error when reading an empty byte-code object (Bug#15405) 8 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, "",
18109 doc: /* Dump glyph row ROW of the tool-bar of the current frame to stderr. 18109 doc: /* Dump glyph row ROW of the tool-bar of the current frame to stderr.
18110GLYPH 0 means don't dump glyphs. 18110GLYPH 0 means don't dump glyphs.
18111GLYPH 1 means dump glyphs in short form. 18111GLYPH 1 means dump glyphs in short form.
18112GLYPH > 1 or omitted means dump glyphs in long form. */) 18112GLYPH > 1 or omitted means dump glyphs in long form.
18113
18114If there's no tool-bar, or if the tool-bar is not drawn by Emacs,
18115do nothing. */)
18113 (Lisp_Object row, Lisp_Object glyphs) 18116 (Lisp_Object row, Lisp_Object glyphs)
18114{ 18117{
18118#if defined (HAVE_WINDOW_SYSTEM) && ! defined (USE_GTK) && ! defined (HAVE_NS)
18115 struct frame *sf = SELECTED_FRAME (); 18119 struct frame *sf = SELECTED_FRAME ();
18116 struct glyph_matrix *m = XWINDOW (sf->tool_bar_window)->current_matrix; 18120 struct glyph_matrix *m = XWINDOW (sf->tool_bar_window)->current_matrix;
18117 EMACS_INT vpos; 18121 EMACS_INT vpos;
@@ -18121,6 +18125,7 @@ GLYPH > 1 or omitted means dump glyphs in long form. */)
18121 if (vpos >= 0 && vpos < m->nrows) 18125 if (vpos >= 0 && vpos < m->nrows)
18122 dump_glyph_row (MATRIX_ROW (m, vpos), vpos, 18126 dump_glyph_row (MATRIX_ROW (m, vpos), vpos,
18123 TYPE_RANGED_INTEGERP (int, glyphs) ? XINT (glyphs) : 2); 18127 TYPE_RANGED_INTEGERP (int, glyphs) ? XINT (glyphs) : 2);
18128#endif
18124 return Qnil; 18129 return Qnil;
18125} 18130}
18126 18131