(if font-pattern
(progn
;; Now FONT-PATTERN is a string or a cons of family
- ;; field pattern and registry filed pattern.
+ ;; field pattern and registry field pattern.
(or (stringp font-pattern)
(setq font-pattern (concat (or (car font-pattern) "*")
"-*-"
'((?\83¡ "/H")
(?\83¢ "~`" "'(")
(?\83¦ "^H" "H^")
- (?\83¶ "^h" "h^") (?\83© ".I" "I^.")
+ (?\83¶ "^h" "h^")
+ (?\83© ".I" "I^.")
(?\83ª ",S")
(?\83« "~G" "G(")
(?\83¬ "^J" "J^")