From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 2 Feb 2001 15:27:55 +0000 (+0000)
Subject: (x_set_font): If font hasn't changed, avoid recomputing
X-Git-Tag: emacs-pretest-21.0.98~195
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d09060524a16ba61d99818816e58477a8c6082f;p=emacs.git

(x_set_font): If font hasn't changed, avoid recomputing
faces and other things.
---

diff --git a/src/xfns.c b/src/xfns.c
index 7e10d67085f..6c9b40a3297 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);
     }