Mercurial > emacs

changeset 17339:8ce3d2e461bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
When calling put-charset-property, ignore errors. (x-charset-registries): Turn Tibetan on again.
author Richard M. Stallman <rms@gnu.org>
date Tue, 08 Apr 1997 01:41:40 +0000
parents a76c4ee8f2e7
children 64722b193f14
files lisp/international/fontset.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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).