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

2002-07-30 06:34:28 +00:00
parent 01afb4f3ac
commit 5470d5b60d
1 changed files with 2 additions and 0 deletions
--- 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))