diff options
| author | Eli Zaretskii | 2013-09-28 11:19:33 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2013-09-28 11:19:33 +0300 |
| commit | 0d2647e645d9965e0707d25e39e4152abfda99bf (patch) | |
| tree | 656a3cba51a16d54c216111ce526c97dbb218603 | |
| parent | 4d2e94d172aa4a4f49b716c5c1c14293d6efa1f8 (diff) | |
| download | emacs-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.
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/xdisp.c | 7 |
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 @@ | |||
| 1 | 2013-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 | |||
| 1 | 2013-09-26 Barry O'Reilly <gundaetiapo@gmail.com> | 6 | 2013-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. |
| 18110 | GLYPH 0 means don't dump glyphs. | 18110 | GLYPH 0 means don't dump glyphs. |
| 18111 | GLYPH 1 means dump glyphs in short form. | 18111 | GLYPH 1 means dump glyphs in short form. |
| 18112 | GLYPH > 1 or omitted means dump glyphs in long form. */) | 18112 | GLYPH > 1 or omitted means dump glyphs in long form. |
| 18113 | |||
| 18114 | If there's no tool-bar, or if the tool-bar is not drawn by Emacs, | ||
| 18115 | do 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 | ||