Give t as arg NOERROR to

create-fontset-from-fontset-spec.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index f8c60808cff358ad256a97b2e889d4c7e32e00cf..9eeb1e9ad58bc6263e879e8a4a703d9c5807064f 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -687,10 +687,10 @@ This is in addition to the primary selection.")
                (aset xlfd-fields xlfd-regexp-encoding-subnum "startup")
                (setq fontset (x-compose-font-name xlfd-fields))
                (setq fontset-spec (concat fontset ", ascii:" font))
-               (create-fontset-from-fontset-spec fontset-spec)
-               (create-fontset-from-fontset-spec fontset-spec 'bold)
-               (create-fontset-from-fontset-spec fontset-spec 'italic)
-               (create-fontset-from-fontset-spec fontset-spec 'bold-italic)
+               (create-fontset-from-fontset-spec fontset-spec nil t)
+               (create-fontset-from-fontset-spec fontset-spec 'bold t)
+               (create-fontset-from-fontset-spec fontset-spec 'italic t)
+               (create-fontset-from-fontset-spec fontset-spec 'bold-italic t)
                (setq fontset-alias-alist
                      (cons (cons fontset font) fontset-alias-alist)))
              )))))