From bb5641d3cc4baecba408ad9d88a33dcd54f12297 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 13 Jun 2019 13:54:53 +0200 Subject: [PATCH] Compilation warning fix for disass.el * lisp/emacs-lisp/disass.el (disassemble-1): Remove a string-as-unibyte that probably doesn't do anything, because the string in question should be unibyte anyway. If the assert fails, revert the patch. --- lisp/emacs-lisp/disass.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el index 3fc22247fa6..7625ff829fc 100644 --- a/lisp/emacs-lisp/disass.el +++ b/lisp/emacs-lisp/disass.el @@ -168,7 +168,8 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler." (fetch-bytecode obj) (setq bytes (aref obj 1) constvec (aref obj 2))) - (let ((lap (byte-decompile-bytecode (string-as-unibyte bytes) constvec)) + (cl-assert (not (multibyte-string-p bytes))) + (let ((lap (byte-decompile-bytecode bytes constvec)) op arg opname pc-value) (let ((tagno 0) tmp -- 2.39.5