diff options
| author | Stefan Monnier | 2019-05-28 20:59:35 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-05-28 20:59:35 -0400 |
| commit | 146486f8a63d03c39770c0ef8c2b67175ef9b906 (patch) | |
| tree | 83aeb260ed9a219d6a00ea9a88550aadfb3c95a1 | |
| parent | 96a0d4fe41905e84a109f25848c1fb7c561a737c (diff) | |
| download | emacs-146486f8a63d03c39770c0ef8c2b67175ef9b906.tar.gz emacs-146486f8a63d03c39770c0ef8c2b67175ef9b906.zip | |
* mule-cmds.el (encoded-string-description): Require unibyte string as input
| -rw-r--r-- | lisp/international/mule-cmds.el | 5 |
1 files 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." | |||
| 2898 | (?\x9b . "CSI"))) | 2898 | (?\x9b . "CSI"))) |
| 2899 | 2899 | ||
| 2900 | (defun encoded-string-description (str coding-system) | 2900 | (defun encoded-string-description (str coding-system) |
| 2901 | "Return a pretty description of STR that is encoded by CODING-SYSTEM." | 2901 | "Return a pretty description of STR that is encoded by CODING-SYSTEM. |
| 2902 | (setq str (string-as-unibyte str)) | 2902 | STR should be a unibyte string." |
| 2903 | (cl-assert (not (multibyte-string-p str))) | ||
| 2903 | (mapconcat | 2904 | (mapconcat |
| 2904 | (if (and coding-system (eq (coding-system-type coding-system) 'iso-2022)) | 2905 | (if (and coding-system (eq (coding-system-type coding-system) 'iso-2022)) |
| 2905 | ;; Try to get a pretty description for ISO 2022 escape sequences. | 2906 | ;; Try to get a pretty description for ISO 2022 escape sequences. |