# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 972869681 0
# Node ID 5343896202ce2789c0897e9dd4be6d5e74bfe82d
# Parent  750f2e41d6bfa53254ab5bf8a1ffe18a7c43a2cc
(encode-coding-char): Check property safe-chars instead of
safe-charsets.

diff -r 750f2e41d6bf -r 5343896202ce lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Mon Oct 30 01:33:12 2000 +0000
+++ b/lisp/international/mule-cmds.el	Mon Oct 30 01:34:41 2000 +0000
@@ -1952,13 +1952,13 @@
 If CODING-SYSTEM can't safely encode CHAR, return nil."
   (let ((str1 (string-as-multibyte (char-to-string char)))
 	(str2 (string-as-multibyte (make-string 2 char)))
-	(safe-charsets (and coding-system
-			    (coding-system-get coding-system 'safe-charsets)))
+	(safe-chars (and coding-system
+			 (coding-system-get coding-system 'safe-chars)))
 	(charset (char-charset char))
 	enc1 enc2 i1 i2)
-    (when (or (eq safe-charsets t)
+    (when (or (eq safe-chars t)
 	      (eq charset 'ascii)
-	      (memq charset safe-charsets))
+	      (and safe-chars (aref safe-chars char)))
       ;; We must find the encoded string of CHAR.  But, just encoding
       ;; CHAR will put extra control sequences (usually to designate
       ;; ASCII charaset) at the tail if type of CODING is ISO 2022.