[Emacs-diffs] emacs/admin/unidata unidata-gen.el

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/04/09 11:06:23

Modified files:
        admin/unidata  : unidata-gen.el 

Log message:
        (unidata-describe-decomposition): Return
        a string with a composition property to disable combining
        characters being composed.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/admin/unidata/unidata-gen.el?cvsroot=emacs&r1=1.10&r2=1.11

Patches:
Index: unidata-gen.el
===================================================================
RCS file: /cvsroot/emacs/emacs/admin/unidata/unidata-gen.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- unidata-gen.el      8 Jan 2009 04:24:47 -0000       1.10
+++ unidata-gen.el      9 Apr 2009 11:06:23 -0000       1.11
@@ -1134,7 +1134,12 @@
               (ON . "Other Neutrals")))))
 
 (defun unidata-describe-decomposition (val)
-  (mapconcat #'(lambda (x) (if (symbolp x) (symbol-name x) (string ?' x ?')))
+  (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