From 1d09060524a16ba61d99818816e58477a8c6082f Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 2 Feb 2001 15:27:55 +0000
Subject: (x_set_font): If font hasn't changed, avoid recomputing faces and
 other things.

---
 src/xfns.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/xfns.c')

diff --git a/src/xfns.c b/src/xfns.c
index 7e10d67085..6c9b40a329 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1831,6 +1831,8 @@ x_set_font (f, arg, oldval)
     error ("The characters of the given font have varying widths");
   else if (STRINGP (result))
     {
+      if (!NILP (Fequal (result, oldval)))
+	return;
       store_frame_param (f, Qfont, result);
       recompute_basic_faces (f);
     }
-- 
cgit v1.2.3