This patch from upstream revision 10588.

--- fltk-1.3.3/src/Xutf8.h
+++ fltk-1.3.3/src/Xutf8.h
@@ -25,6 +25,7 @@
 #include <X11/Xlib.h>
 #include <X11/Xlocale.h>
 #include <X11/Xutil.h>
+#include <FL/Fl_Export.H>
 
 typedef struct {
 	int nb_font;
@@ -98,8 +99,8 @@
 	XUtf8FontStruct  *font_set,
 	unsigned int            ucs);
 
-int
-XGetUtf8FontAndGlyph(
+FL_EXPORT int
+fl_XGetUtf8FontAndGlyph(
         XUtf8FontStruct  *font_set,
         unsigned int            ucs,
         XFontStruct     **fnt,
--- fltk-1.3.3/src/gl_draw.cxx
+++ fltk-1.3.3/src/gl_draw.cxx
@@ -114,7 +114,7 @@
   for (int i = 0; i < 0x400; i++) {
     XFontStruct *font = NULL;
     unsigned short id;
-    XGetUtf8FontAndGlyph(gl_fontsize->font, ii, &font, &id);
+    fl_XGetUtf8FontAndGlyph(gl_fontsize->font, ii, &font, &id);
     if (font) glXUseXFont(font->fid, id, 1, gl_fontsize->listbase+ii);
     ii++;
    }
--- fltk-1.3.3/src/xutf8/utf8Wrap.c
+++ fltk-1.3.3/src/xutf8/utf8Wrap.c
@@ -816,10 +816,10 @@
 /**  get the X font and glyph ID of a UCS char                              **/
 /*****************************************************************************/
 int
-XGetUtf8FontAndGlyph(XUtf8FontStruct  *font_set,
-		     unsigned int     ucs,
-		     XFontStruct      **fnt,
-		     unsigned short   *id) {
+fl_XGetUtf8FontAndGlyph(XUtf8FontStruct  *font_set,
+			unsigned int     ucs,
+			XFontStruct      **fnt,
+			unsigned short   *id) {
 
   /* int             x; */
   int             *encodings; /* encodings array */
75dd6f14a3b135e5e691806df996e6ad'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/system/linux-container.scm'>
<input type='hidden' name='id' value='1532a32f75dd6f14a3b135e5e691806df996e6ad'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=1532a32f75dd6f14a3b135e5e691806df996e6ad'>root</a>/<a href='/guix/log/gnu?id=1532a32f75dd6f14a3b135e5e691806df996e6ad'>gnu</a>/<a href='/guix/log/gnu/system?id=1532a32f75dd6f14a3b135e5e691806df996e6ad'>system</a>/<a href='/guix/log/gnu/system/linux-container.scm?id=1532a32f75dd6f14a3b135e5e691806df996e6ad'>linux-container.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/system/linux-container.scm?id=1532a32f75dd6f14a3b135e5e691806df996e6ad&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-02-05 22:29:45 +0100'>2024-02-05</span></td><td><a href='/guix/commit/gnu/system/linux-container.scm?id=841fd4880a03d04bf20cc51fcc1a4c956d28d74c'>linux-container: Inherit essential services.</a><span class='msg-avail'>...<span class='msg-tooltip'>Currently it's not possible to set `essential-services' when building
operating systems for containers, since `container-essential-services'
always uses the defaults.

It's possible to reference `essential-services' from the operating
system that's passed in, but since it's thunked, the operating system
needs to be defined in two passes to avoid an infinite loop.

* gnu/system/linux-container.scm (container-essential-services): Use
operating-system-essential-services instead of the defaults to allow
overriding the base services.
(containerized-operating-system): Update accordingly.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
Change-Id: I81452487ef1ad01d3fa874c26d93a67d58ce6062
</span></span></td><td>Leo Nikkilä</td></tr>
<tr><td><span title='2023-06-24 16:13:05 +0200'>2023-06-24</span></td><td><a href='/guix/commit/gnu/system/linux-container.scm?id=ed5a9f5260666679289c3d20d5068e374084a50c'>linux-container: Pass '--disable-chroot' to 'guix-daemon'.</a><span class='msg-avail'>...<span class='msg-tooltip'>This allows for the use of Guix within a non-privileged Docker container
produced by 'guix system image -t docker'.

* gnu/system/linux-container.scm (containerized-operating-system):
Change 'guix-configuration' to add "--disable-chroot".
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-06-09 18:15:07 +0200'>2023-06-09</span></td><td><a href='/guix/commit/gnu/system/linux-container.scm?id=44bbfc24e4bcc48d0e3343cd3d83452721af8c36'>linux-container: Adjust to 'modify-services' semantic change.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to dbbc7e946131ba257728f1d05b96c4339b7ee88b:
'nscd-service-type' isn't necessarily present in OS, so we cannot use
the 'modify-services' as it would now error out.  This was happening
with the "guix system docker-image" test in 'tests/guix-system.sh'.

* gnu/system/linux-container.scm (containerized-operating-system): Use
'filter-map' instead of 'remove' + 'modify-services'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-26 14:15:16 +0100'>2023-03-26</span></td><td><a href='/guix/commit/gnu/system/linux-container.scm?id=42fbe62d52a82d1003c3d7039d3c4a46806c5cee'>linux-container: Remove hosts-service-type when network is shared.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/61627&gt;.

* gnu/system/linux-container.scm (container-essential-services): When
shared-network? is true, remove the hosts-service-type service kind.
</span></span></td><td>Pierre Langlois</td></tr>