diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-13 13:54:53 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-13 13:54:53 +0200 |
| commit | bb5641d3cc4baecba408ad9d88a33dcd54f12297 (patch) | |
| tree | 31a05ec7cdeed8aee847ceb9b8f6993e03ec7cec /lisp/emacs-lisp/disass.el | |
| parent | 25b13765167746529e4ecbdcbb7bcfc8cc647cd3 (diff) | |
| download | emacs-bb5641d3cc4baecba408ad9d88a33dcd54f12297.tar.gz emacs-bb5641d3cc4baecba408ad9d88a33dcd54f12297.tar.bz2 emacs-bb5641d3cc4baecba408ad9d88a33dcd54f12297.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp/disass.el')
| -rw-r--r-- | lisp/emacs-lisp/disass.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |