From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Apr 1997 01:41:40 +0000 (+0000)
Subject: When calling put-charset-property, ignore errors.
X-Git-Tag: emacs-20.1~2606
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2316704abdb3a72a81a87b732987281ff7ce9495;p=emacs.git

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 17a15ab88b1..2e5545576b3 100644
--- 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).