From: Kenichi Handa <handa@m17n.org>
Date: Sat, 13 May 2000 00:34:05 +0000 (+0000)
Subject: (encode-coding-char): An ASCII character is always encodable.
X-Git-Tag: emacs-pretest-21.0.90~3977
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c9d55a94903db43a9e750cedb9f4f0e88a96517;p=emacs.git

(encode-coding-char): An ASCII character is always encodable.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 401492f5dbe..5165f38731d 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1824,7 +1824,7 @@ It can be retrieved with `(get-char-code-property CHAR PROPNAME)'."
   "Return a pretty description of STR that is encoded by CODING-SYSTEM."
   (setq str (string-as-unibyte str))
   (mapconcat
-   (if (eq (coding-system-type coding-system) 2)
+   (if (and coding-system (eq (coding-system-type coding-system) 2))
        ;; Try to get a pretty description for ISO 2022 escape sequences.
        (function (lambda (x) (or (cdr (assq x iso-2022-control-alist))
 				 (format "%02X" x))))
@@ -1838,9 +1838,11 @@ If CODING-SYSTEM can't safely encode CHAR, return nil."
 	(str2 (make-string 2 char))
 	(safe-charsets (and coding-system
 			    (coding-system-get coding-system 'safe-charsets)))
+	(charset (char-charset char))
 	enc1 enc2 i1 i2)
     (when (or (eq safe-charsets t)
-	      (memq (char-charset char) safe-charsets))
+	      (eq charset 'ascii)
+	      (memq charset safe-charsets))
       ;; 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.