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
78bba1c8
Commit
78bba1c8
authored
Sep 08, 2004
by
Thien-Thi Nguyen
Browse files
(byte-compile-generate-call-tree): Doc fix.
(display-call-tree): Ensure newline after caller/calls blocks.
parent
6cc52547
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
4 deletions
+7
-4
lisp/emacs-lisp/bytecomp.el
lisp/emacs-lisp/bytecomp.el
+7
-4
No files found.
lisp/emacs-lisp/bytecomp.el
View file @
78bba1c8
...
@@ -354,7 +354,7 @@ Elements of the list may be be:
...
@@ -354,7 +354,7 @@ Elements of the list may be be:
(
defcustom
byte-compile-generate-call-tree
nil
(
defcustom
byte-compile-generate-call-tree
nil
"*Non-nil means collect call-graph information when compiling.
"*Non-nil means collect call-graph information when compiling.
This records functions were called and from where.
This records
which
functions were called and from where.
If the value is t, compilation displays the call graph when it finishes.
If the value is t, compilation displays the call graph when it finishes.
If the value is neither t nor nil, compilation asks you whether to display
If the value is neither t nor nil, compilation asks you whether to display
the graph.
the graph.
...
@@ -3878,15 +3878,18 @@ invoked interactively."
...
@@ -3878,15 +3878,18 @@ invoked interactively."
(
mapconcat
'symbol-name
callers
", "
)
(
mapconcat
'symbol-name
callers
", "
)
"<top level>"
))
"<top level>"
))
(
let
((
fill-prefix
" "
))
(
let
((
fill-prefix
" "
))
(
fill-region-as-paragraph
p
(
point
)))))
(
fill-region-as-paragraph
p
(
point
)))
(
unless
(
=
0
(
current-column
))
(
insert
"\n"
))))
(
if
calls
(
if
calls
(
progn
(
progn
(
insert
" calls:\n"
)
(
insert
" calls:\n"
)
(
setq
p
(
point
))
(
setq
p
(
point
))
(
insert
" "
(
mapconcat
'symbol-name
calls
", "
))
(
insert
" "
(
mapconcat
'symbol-name
calls
", "
))
(
let
((
fill-prefix
" "
))
(
let
((
fill-prefix
" "
))
(
fill-region-as-paragraph
p
(
point
)))))
(
fill-region-as-paragraph
p
(
point
)))
(
insert
"\n"
)
(
unless
(
=
0
(
current-column
))
(
insert
"\n"
))))
(
setq
rest
(
cdr
rest
)))
(
setq
rest
(
cdr
rest
)))
(
message
"Generating call tree...(finding uncalled functions...)"
)
(
message
"Generating call tree...(finding uncalled functions...)"
)
...
...
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