# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 860463700 0
# Node ID 8ce3d2e461bc58dbd21c2087188e25e886e5dc4d
# Parent  a76c4ee8f2e7554dde9e54585f933acadaf73137
When calling put-charset-property, ignore errors.
(x-charset-registries): Turn Tibetan on again.

diff -r a76c4ee8f2e7 -r 8ce3d2e461bc lisp/international/fontset.el
--- a/lisp/international/fontset.el	Tue Apr 08 01:18:14 1997 +0000
+++ b/lisp/international/fontset.el	Tue Apr 08 01:41:40 1997 +0000
@@ -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).