# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 981127675 0
# Node ID c9edddbb8dbf9c557e2880e95a5f4a195d1199aa
# Parent  783c81a841f679f70036c7e65bd08c38e4828a88
(x_set_font): If font hasn't changed, avoid recomputing
faces and other things.

diff -r 783c81a841f6 -r c9edddbb8dbf src/xfns.c
--- a/src/xfns.c	Fri Feb 02 14:55:04 2001 +0000
+++ b/src/xfns.c	Fri Feb 02 15:27:55 2001 +0000
@@ -1831,6 +1831,8 @@
     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);
     }