diff options
| author | Kenichi Handa <handa@m17n.org> | 2009-04-09 11:06:23 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2009-04-09 11:06:23 +0000 |
| commit | 9c4bf7d54b4c8dfa3734b04eb2651e285d857712 (patch) | |
| tree | e6b2b1b8f18301274ff3df23cdffdba4e427e9b9 /admin/unidata | |
| parent | cd01875b6e8a6a09e877e9cd3c59c3f4abe022e9 (diff) | |
| download | emacs-9c4bf7d54b4c8dfa3734b04eb2651e285d857712.tar.gz | |
(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 d82ba7aa432..5a03fd71431 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. |