(char-int): New alias.

diff --git a/mime-def.el b/mime-def.el
index 4fa1c96..66dfa00 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -94,7 +94,10 @@
       (write-region start end filename append visit lockname)))
   )
 
-  
+(or (fboundp 'char-int)
+    (defalias 'char-int 'identity))
+
+
 ;;; @ about STD 11
 ;;;