diff options
author | Kenichi Handa <handa@etlken> | 2010-05-19 10:09:50 +0900 |
---|---|---|
committer | Kenichi Handa <handa@etlken> | 2010-05-19 10:09:50 +0900 |
commit | 2833d9158d6315b59415173df5d47515faac5310 (patch) | |
tree | 0463de89be425230edca77dbd5aef684290bd9b8 /lisp/composite.el | |
parent | c2eb4a8321dd86f085724c709e881663c81d0c6b (diff) | |
download | emacs-2833d9158d6315b59415173df5d47515faac5310.tar.gz |
composite.el: Register compose-gstring-for-graphic in composition-function-table only for combining characters (Mn, Mc, Me).
Diffstat (limited to 'lisp/composite.el')
-rw-r--r-- | lisp/composite.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/composite.el b/lisp/composite.el index 2204b351a36..0afb2864879 100644 --- 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. |