From b488cb995a94169ea9bf7c0cfb8a6e7ceea46157 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 27 Jul 2005 23:45:04 +0000 Subject: [PATCH] Use `=>decomposition@compat' instead of `=decomposition' for compatibility decomposition mapping. --- lisp/utf-2000/u00530-Armenian.el | 8 +++++++- lisp/utf-2000/u00600-Arabic.el | 12 ++++-------- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/lisp/utf-2000/u00530-Armenian.el b/lisp/utf-2000/u00530-Armenian.el index 7e32c58..4c4141c 100644 --- a/lisp/utf-2000/u00530-Armenian.el +++ b/lisp/utf-2000/u00530-Armenian.el @@ -889,7 +889,13 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition compat #x0565 #x0582) + (=>decomposition@compat + ((name . "ARMENIAN SMALL LETTER ECH") + (=ucs . #x0565) ; ե + ) + ((name . "ARMENIAN SMALL LETTER YIWN") + (=ucs . #x0582) ; ւ + )) (=ucs . #x0587) ; և )) (define-char diff --git a/lisp/utf-2000/u00600-Arabic.el b/lisp/utf-2000/u00600-Arabic.el index c420780..0def147 100644 --- a/lisp/utf-2000/u00600-Arabic.el +++ b/lisp/utf-2000/u00600-Arabic.el @@ -620,8 +620,7 @@ (general-category letter other) ; Informative Category (bidi-category . "AL") (mirrored . nil) - (=decomposition - compat + (=>decomposition@compat ((name . "ARABIC LETTER ALEF") (=ucs . #x0627) ; ا ) @@ -635,8 +634,7 @@ (general-category letter other) ; Informative Category (bidi-category . "AL") (mirrored . nil) - (=decomposition - compat + (=>decomposition@compat ((name . "ARABIC LETTER WAW") (=ucs . #x0648) ; و ) @@ -650,8 +648,7 @@ (general-category letter other) ; Informative Category (bidi-category . "AL") (mirrored . nil) - (=decomposition - compat + (=>decomposition@compat ((name . "ARABIC LETTER U") (=ucs . #x06C7) ; ۇ ) @@ -665,8 +662,7 @@ (general-category letter other) ; Informative Category (bidi-category . "AL") (mirrored . nil) - (=decomposition - compat + (=>decomposition@compat ((name . "ARABIC LETTER YEH") (=ucs . #x064A) ; ي ) -- 1.7.10.4