emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 146486f: * mule-cmds.el (encoded-string-description


From: Stefan Monnier
Subject: [Emacs-diffs] master 146486f: * mule-cmds.el (encoded-string-description): Require unibyte string as input
Date: Tue, 28 May 2019 20:59:40 -0400 (EDT)

branch: master
commit 146486f8a63d03c39770c0ef8c2b67175ef9b906
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * 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 ecdab5e..47b0747 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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]