1 files changed, 7 insertions, 0 deletions

diff --git a/src/font.c b/src/font.c
index ce85e0bb4ad..935dd64e648 100644
--- a/src/font.c
+++ b/src/font.c
@@ -5509,7 +5509,14 @@ and cannot switch to a smaller font for those characters, set
 this variable non-nil.
 Disabling compaction of font caches might enlarge the Emacs memory
 footprint in sessions that use lots of different fonts.  */);
+
+#ifdef WINDOWSNT
+  /* Compacting font caches causes slow redisplay on Windows with many
+     large fonts, so we disable it by default.  */
+  inhibit_compacting_font_caches = 1;
+#else
   inhibit_compacting_font_caches = 0;
+#endif
 
   DEFVAR_BOOL ("xft-ignore-color-fonts",
                Vxft_ignore_color_fonts,