# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1220750098 0
# Node ID 43a801a18b24a478ab90045fcf92ad73105a474f
# Parent  9723eb0d11abfbe01cce453c5b7e7a883d8e95a7
Compose combining characters only when it
follows an character matching with "[[:alpha:]]".

diff -r 9723eb0d11ab -r 43a801a18b24 lisp/composite.el
--- a/lisp/composite.el	Sun Sep 07 01:11:46 2008 +0000
+++ b/lisp/composite.el	Sun Sep 07 01:14:58 2008 +0000
@@ -635,7 +635,7 @@
 	      (setq i (1+ i))))
 	  gstring))))))
 
-(let ((elt '(["\\C^\\c^+" 1 compose-gstring-for-graphic]
+(let ((elt '(["[[:alpha:]]\\c^+" 1 compose-gstring-for-graphic]
 	     [nil 0 compose-gstring-for-graphic])))
   (map-char-table
    #'(lambda (key val)