diff options
| author | Kenichi Handa <handa@m17n.org> | 2009-04-09 11:06:49 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2009-04-09 11:06:49 +0000 |
| commit | 0af3fedff9897f58f7155a9f68868cd54863585b (patch) | |
| tree | a928190b05011e292c6b82e2d1db38d82e2b112a /admin/unidata | |
| parent | 12b5576566576351afdfa44d6c1417b1f02b82ab (diff) | |
(unidata-describe-decomposition): Return
a string with a composition property to disable combining
characters being composed.
Diffstat (limited to 'admin/unidata')
| -rw-r--r-- | admin/unidata/unidata-gen.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el index d82ba7aa43..5a03fd7143 100644 --- a/admin/unidata/unidata-gen.el +++ b/admin/unidata/unidata-gen.el @@ -1134,8 +1134,13 @@ Property value is a character." (ON . "Other Neutrals"))))) (defun unidata-describe-decomposition (val) - (mapconcat #'(lambda (x) (if (symbolp x) (symbol-name x) (string ?' x ?'))) - val " ")) + (mapconcat + #'(lambda (x) + (if (symbolp x) (symbol-name x) + (concat (string ?') + (compose-string (string x) 0 1 (string ?\t x ?\t)) + (string ?')))) + val " ")) ;; Verify if we can retrieve correct values from the generated ;; char-tables. |