Compose combining characters only when it

follows an character matching with "[[:alpha:]]".

diff --git a/lisp/composite.el b/lisp/composite.el
index a86b314..fdf8dcd 100644 (file)
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -635,7 +635,7 @@ All non-spacing characters has this function in
              (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)