(encode-coding-char): Check property safe-chars instead of

safe-charsets.

1 files changed, 4 insertions, 4 deletions

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 69f11ea895..f02c470c8b 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1952,13 +1952,13 @@ It can be retrieved with `(get-char-code-property CHAR PROPNAME)'."
 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.