Mercurial > emacs
changeset 22055:463eb85cd3e5
(disassemble-1): Reference bytecode string as unibyte.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 14 May 1998 00:57:14 +0000 |
| parents | d313bff62b93 |
| children | cc1d87834752 |
| files | lisp/emacs-lisp/disass.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/disass.el Wed May 13 15:12:18 1998 +0000 +++ b/lisp/emacs-lisp/disass.el Thu May 14 00:57:14 1998 +0000 @@ -171,7 +171,7 @@ constvec (car (cdr (cdr obj)))) ;constant vector ;; If it is lazy-loaded, load it now (fetch-bytecode obj) - (setq bytes (aref obj 1) + (setq bytes (string-as-unibyte (aref obj 1)) constvec (aref obj 2))) (let ((lap (byte-decompile-bytecode bytes constvec)) op arg opname pc-value)