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.
This commit is contained in:
parent
25b1376516
commit
bb5641d3cc
1 changed files with 2 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue