From 2316704abdb3a72a81a87b732987281ff7ce9495 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 8 Apr 1997 01:41:40 +0000 Subject: [PATCH] When calling put-charset-property, ignore errors. (x-charset-registries): Turn Tibetan on again. --- lisp/international/fontset.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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). -- 2.39.2