[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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 146486f: * mule-cmds.el (encoded-string-description): Require unibyte string as input,
Stefan Monnier <=