HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
360c227
)
(disassemble-1): Reference bytecode string as unibyte.
author
Richard M. Stallman
<rms@gnu.org>
Thu, 14 May 1998 00:57:14 +0000
(
00:57
+0000)
committer
Richard M. Stallman
<rms@gnu.org>
Thu, 14 May 1998 00:57:14 +0000
(
00:57
+0000)
lisp/emacs-lisp/disass.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/emacs-lisp/disass.el
b/lisp/emacs-lisp/disass.el
index
d07581e
..
8b010c4
100644
(file)
--- a/
lisp/emacs-lisp/disass.el
+++ b/
lisp/emacs-lisp/disass.el
@@
-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)