Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3fd4909e
Commit
3fd4909e
authored
Oct 30, 1995
by
Richard M. Stallman
Browse files
(disassemble-internal): Handle lazy-loaded doc strings.
(disassemble-1): Handle lazy-loaded bytecode objects.
parent
83c4abcb
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
1 deletion
+4
-1
lisp/emacs-lisp/disass.el
lisp/emacs-lisp/disass.el
+4
-1
No files found.
lisp/emacs-lisp/disass.el
View file @
3fd4909e
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment