Give t as arg NOERROR to

create-fontset-from-fontset-spec.
This commit is contained in:
Kenichi Handa 1997-07-10 06:48:24 +00:00
parent b65976cb0f
commit fbe296b7b9

View file

@ -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)))
)))))