1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/composite.el b/lisp/composite.el
index 537adab6e90..667f158a346 100644
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -646,7 +646,7 @@ All non-spacing characters has this function in
               (setq i (1+ i))))
           gstring))))))
 
-(let ((elt '(["[[:alpha:]]\\c^+" 1 compose-gstring-for-graphic]
+(let ((elt '(["\\c.\\c^+" 1 compose-gstring-for-graphic]
              [nil 0 compose-gstring-for-graphic])))
   (map-char-table
    #'(lambda (key val)