X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-identity.el;h=f7a48cb6bb94cba05065643f10cbaf9421114148;hb=c29e67d9775fc091a53a59d8fb315ef2e05bd46b;hp=c01c45473cbdb7082e2030c8e2bb53686e283bd7;hpb=29fb78636f5d9ed5968b260567a9aac916f77673;p=riece

diff --git a/lisp/riece-identity.el b/lisp/riece-identity.el
index c01c454..f7a48cb 100644
--- a/lisp/riece-identity.el
+++ b/lisp/riece-identity.el
@@ -32,7 +32,7 @@
 (defvar riece-expand-identity-string-function nil)
 
 (defvar riece-identity-prefix-case-table
-  (let ((table (copy-case-table (standard-case-table))))
+  (let ((table (riece-copy-case-table (standard-case-table))))
     (riece-set-case-syntax-pair ?\[ ?{ table)
     (riece-set-case-syntax-pair ?\] ?} table)
     (riece-set-case-syntax-pair ?\\ ?| table)