Commit bb5641d3 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

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.
parent 25b13765
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment