(unidata-describe-decomposition): Return

a string with a composition property to disable combining
characters being composed.
This commit is contained in:
Kenichi Handa 2009-04-09 11:06:49 +00:00
parent 12b5576566
commit 0af3fedff9
2 changed files with 13 additions and 2 deletions

View file

@ -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.

View file

@ -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.