Commit 3fd4909e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(disassemble-internal): Handle lazy-loaded doc strings.

(disassemble-1): Handle lazy-loaded bytecode objects.
parent 83c4abcb
......@@ -114,7 +114,8 @@ redefine OBJECT if it is a symbol."
(if name (format " %s" name) "")))))
(let ((doc (if (consp obj)
(and (stringp (car obj)) (car obj))
(and (> (length obj) 4) (aref obj 4)))))
;; Use documentation to get lazy-loaded doc string
(documentation obj t))))
(if (and doc (stringp doc))
(progn (and (consp obj) (setq obj (cdr obj)))
(indent-to indent)
......@@ -166,6 +167,8 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
(if (consp obj)
(setq bytes (car (cdr obj)) ;the byte code
constvec (car (cdr (cdr obj)))) ;constant vector
;; If it is lazy-loaded, load it now
(fetch-bytecode obj)
(setq bytes (aref obj 1)
constvec (aref obj 2)))
(let ((lap (byte-decompile-bytecode bytes constvec))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment