1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 7963fc9e6c3..81fcaa9813c 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -527,7 +527,7 @@ replaced by the corresponding fields in XLFD-FIELDS."
           (setq font-spec (make-vector 6 nil))
           (dotimes (i 6)
             (aset font-spec i (match-string (1+ i) name)))
-          (dotimes (i 6)
+          (dotimes (i 5)
             (if (string-match "^[*-]+$" (aref font-spec i))
                 (aset font-spec i (aref default-spec i))))
           (setcar (cdr elt) font-spec))))