From 146486f8a63d03c39770c0ef8c2b67175ef9b906 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 28 May 2019 20:59:35 -0400 Subject: [PATCH] * mule-cmds.el (encoded-string-description): Require unibyte string as input --- lisp/international/mule-cmds.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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. -- 2.39.5