X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fupdate-cdb.el;h=8ee1852b0ecef116c54c27359ad0d141f3122af2;hb=1275b579da580df1bcc444b2bd55d295fd29af97;hp=d184912ec67a52081aef0f39559497f03e51a244;hpb=8165fe3417f6cc4ac7b4cfe8f5aead627c73dc09;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/update-cdb.el b/lisp/utf-2000/update-cdb.el
index d184912..8ee1852 100644
--- a/lisp/utf-2000/update-cdb.el
+++ b/lisp/utf-2000/update-cdb.el
@@ -73,7 +73,8 @@
       (save-char-attribute-table attribute))
 
     (dolist (ccs (charset-list))
-      (save-charset-properties ccs)
+      (and (fboundp 'save-charset-properties)
+	   (save-charset-properties ccs))
       (save-charset-mapping-table ccs))
 
     (with-temp-buffer