From: Kenichi Handa <handa@m17n.org>
Date: Tue, 30 Jul 2002 06:34:28 +0000 (+0000)
Subject: (safe-chars): Put `char-table-extra-slots' property with value 0.
X-Git-Tag: ttn-vms-21-2-B4~13814
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5470d5b60d08806420a204b082c91fa684db06c9;p=emacs.git

(safe-chars): Put `char-table-extra-slots' property with value 0.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 7efcb9c1fb7..38817cde69c 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1099,6 +1099,8 @@ a value of `safe-charsets' in PLIST."
 
   coding-system)
 
+(put 'safe-chars 'char-table-extra-slots 0)
+
 (defun define-coding-system-alias (alias coding-system)
   "Define ALIAS as an alias for coding system CODING-SYSTEM."
   (put alias 'coding-system (coding-system-spec coding-system))