Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-8

[bpt/emacs.git] / admin / unidata / unidata-gen.el

diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el
index f08ddc6..75d7e2d 100644 (file)
--- a/admin/unidata/unidata-gen.el
+++ b/admin/unidata/unidata-gen.el
@@ -773,7 +773,9 @@ Property value is a character."
          (V (+ #x1161 (/ (% char 588) 28)))
          ;; T = TBase + SIndex % TCount
          (T (+ #x11A7 (% char 28))))
-      (list L V T)))
+      (if (= T #x11A7)
+         (list L V)
+       (list L V T))))
 
    ))