From: Kenichi Handa <handa@m17n.org>
Date: Mon, 30 Oct 2000 01:34:41 +0000 (+0000)
Subject: (encode-coding-char): Check property safe-chars instead of
X-Git-Tag: emacs-pretest-21.0.90~430
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a89f541b4ad5faae5269295e0ecfb1f82e60efc1;p=emacs.git

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

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 69f11ea8952..f02c470c8b5 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.