Commit 2316704a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

When calling put-charset-property, ignore errors.

(x-charset-registries): Turn Tibetan on again.
parent b8668259
......@@ -74,13 +74,15 @@
(indian-2-column . "MuleIndian-2")
(indian-1-column . "MuleIndian-1")
(lao . "lao.mule-1")
;; (tibetan . "Mule.Tibetan-0")
;; (tibetan-1-column . "Mule.Tibetan-1")
(tibetan . "Mule.Tibetan-0")
(tibetan-1-column . "Mule.Tibetan-1")
(let ((l x-charset-registries))
(while l
(put-charset-property (car (car l)) 'x-charset-registry (cdr (car l)))
(condition-case nil
(put-charset-property (car (car l)) 'x-charset-registry (cdr (car l)))
(error nil))
(setq l (cdr l))))
;; Set arguments in `font-encoding-alist' (which see).
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment