procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(disassemble-1): Reference bytecode string as unibyte.

Browse source
This commit is contained in:
Richard M. Stallman 1998-05-14 00:57:14 +00:00
parent 360c227503
commit a56d55b703
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/disass.el
View file

@ -171,7 +171,7 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
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)