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 | |
parent | 12b5576566576351afdfa44d6c1417b1f02b82ab (diff) | |
download | emacs-0af3fedff9897f58f7155a9f68868cd54863585b.tar.gz |
(unidata-describe-decomposition): Return
a string with a composition property to disable combining
characters being composed.
Diffstat (limited to 'admin')
-rw-r--r-- | admin/ChangeLog | 6 | ||||
-rw-r--r-- | admin/unidata/unidata-gen.el | 9 |
2 files changed, 13 insertions, 2 deletions
diff --git a/admin/ChangeLog b/admin/ChangeLog index 299190bb2a7..8e3a484f1f1 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,3 +1,9 @@ +2009-04-09 Kenichi Handa <handa@m17n.org> + + * unidata/unidata-gen.el (unidata-describe-decomposition): Return + a string with a composition property to disable combining + characters being composed. + 2009-03-11 Miles Bader <Miles Bader <miles@gnu.org>> * quick-install-emacs: Be more clever about locating info directory. 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. |