(unidata-describe-decomposition): Return
a string with a composition property to disable combining characters being composed.
This commit is contained in:
parent
12b5576566
commit
0af3fedff9
2 changed files with 13 additions and 2 deletions
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
|
Loading…
Add table
Reference in a new issue