; * lisp/international/fontset.el (setup-default-fontset): Fix typo.

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 14f30c15ac3bda7e9ddb75edeb97316c14b16f23..aa7a30eb29fed9ab5b9932e8631beb9aa3bbeaa6 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -736,7 +736,7 @@
               (#x1F800 . #x1F8FF)))    ;; Supplemental Arrows-C
       (set-fontset-font "fontset-default" symbol-subgroup "Symbola")))
   ;; Box Drawing and Block Elements
-  (when (find-font (font-spec "FreeMono"))
+  (when (find-font (font-spec :name "FreeMono"))
     (set-fontset-font "fontset-default" '(#x2500 . #x259F) "FreeMono"))
 
   ;; Append CJK fonts for characters other than han, kana, cjk-misc.