# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 954734741 0
# Node ID 5eb1da819180d0fa06721ad660d6bdd9b4a1eda1
# Parent  baad77ad33839952cb1e45f04928c40c3c24f8d1
(encoded-string-description):
Rewritten.   Try pretty description for ISO 2022 escape sequences
only if CODING-SYSTEM is based on ISO 2022.

diff -r baad77ad3383 -r 5eb1da819180 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Mon Apr 03 04:05:06 2000 +0000
+++ b/lisp/international/mule-cmds.el	Mon Apr 03 04:05:41 2000 +0000
@@ -1815,23 +1815,13 @@
 (defun encoded-string-description (str coding-system)
   "Return a pretty description of STR that is encoded by CODING-SYSTEM."
   (setq str (string-as-unibyte str))
-  (let ((char (aref str 0))
-	desc)
-    (when (< char 128)
-      (setq desc (or (cdr (assq char iso-2022-control-alist))
-		     (char-to-string char)))
-      (let ((i 1)
-	    (len (length str))) 
-	(while (< i len)
-	  (setq char (aref str i))
-	  (if (>= char 128)
-	      (setq desc nil i len)
-	    (setq desc (concat desc " "
-			       (or (cdr (assq char iso-2022-control-alist))
-				   (char-to-string char)))
-		  i (1+ i))))))
-    (or desc
-	(mapconcat (function (lambda (x) (format "0x%02x" x))) str " "))))
+  (mapconcat
+   (if (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))))
+     (function (lambda (x) (format "0x%02x" x))))
+   str " "))
 
 (defun encode-coding-char (char coding-system)
   "Encode CHAR by CODING-SYSTEM and return the resulting string.