composite.el: Register compose-gstring-for-graphic in composition-function-table...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 484ae6529c3ca48db71b002ad9da527e5c3d43d2..21d0e827f6760ace6b0812bfe844073edc98131f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-05-19  Kenichi Handa  <handa@m17n.org>
+
+       * composite.el: Register compose-gstring-for-graphic in
+       composition-function-table only for combining characters (Mn, Mc,
+       Me).
+
 2010-05-13  Chong Yidong  <cyd@stupidchicken.com>
 
        Add TeX open-block and close-block keybindings to SGML, and vice

diff --git a/lisp/composite.el b/lisp/composite.el
index 2204b351a36c1071fa2a533db2043841a5fc9ca8..0afb28648793dfad7e6c8887a9f81f17b9441e79 100644 (file)
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -532,9 +532,9 @@ after a sequence of character events."
 
 (defun compose-gstring-for-graphic (gstring)
   "Compose glyph-string GSTRING for graphic display.
-Non-spacing characters are composed with the preceding base
+Combining characters are composed with the preceding base
 character.  If the preceding character is not a base character,
-each non-spacing character is composed as a spacing character by
+each combining character is composed as a spacing character by
 a padding space before and/or after the character.
 
 All non-spacing characters has this function in
@@ -660,9 +660,9 @@ All non-spacing characters has this function in
             [nil 0 compose-gstring-for-graphic])))
   (map-char-table
    #'(lambda (key val)
-       (if (= val 0)
+       (if (memq val '(Mn Mc Me))
           (set-char-table-range composition-function-table key elt)))
-   char-width-table))
+   unicode-category-table))
 
 (defun compose-gstring-for-terminal (gstring)
   "Compose glyph string GSTRING for terminal display.