When calling put-charset-property, ignore errors.

(x-charset-registries): Turn Tibetan on again.

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 17a15ab88b11f436cf2ed0c231117252123d7aaf..2e5545576b31fe4c007da731fae71cc30ff161ff 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -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).