From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 29 May 2019 00:59:35 +0000 (-0400)
Subject: * mule-cmds.el (encoded-string-description): Require unibyte string as input
X-Git-Tag: emacs-27.0.90~2766
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=146486f8a63d03c39770c0ef8c2b67175ef9b906;p=emacs.git

* mule-cmds.el (encoded-string-description): Require unibyte string as input
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index ecdab5e931d..47b07479c3c 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2898,8 +2898,9 @@ If there's no description string for VALUE, return nil."
     (?\x9b . "CSI")))
 
 (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))
+  "Return a pretty description of STR that is encoded by CODING-SYSTEM.
+STR should be a unibyte string."
+  (cl-assert (not (multibyte-string-p str)))
   (mapconcat
    (if (and coding-system (eq (coding-system-type coding-system) 'iso-2022))
        ;; Try to get a pretty description for ISO 2022 escape sequences.