From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 13 Jun 2019 11:54:53 +0000 (+0200)
Subject: Compilation warning fix for disass.el
X-Git-Tag: emacs-27.0.90~2572
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb5641d3cc4baecba408ad9d88a33dcd54f12297;p=emacs.git

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.
---

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