(or (assq charset fontlist)
(setq fontlist
(cons (cons charset ascii-font-spec) fontlist))))))))
-
+
fontlist))
(defun fontset-name-p (fontset)
(name (match-string 0 fontset-spec))
xlfd-fields charset fontlist ascii-font)
(if (query-fontset name)
- (or noerror
+ (or noerror
(error "Fontset \"%s\" already exists" name))
(setq xlfd-fields (x-decompose-font-name name))
(or xlfd-fields