365 |
|
|
366 |
(defcustom byte-compile-generate-call-tree nil |
(defcustom byte-compile-generate-call-tree nil |
367 |
"*Non-nil means collect call-graph information when compiling. |
"*Non-nil means collect call-graph information when compiling. |
368 |
This records functions were called and from where. |
This records which functions were called and from where. |
369 |
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. |
370 |
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 |
371 |
the graph. |
the graph. |
4240 |
(mapconcat 'symbol-name callers ", ") |
(mapconcat 'symbol-name callers ", ") |
4241 |
"<top level>")) |
"<top level>")) |
4242 |
(let ((fill-prefix " ")) |
(let ((fill-prefix " ")) |
4243 |
(fill-region-as-paragraph p (point))))) |
(fill-region-as-paragraph p (point))) |
4244 |
|
(unless (= 0 (current-column)) |
4245 |
|
(insert "\n")))) |
4246 |
(if calls |
(if calls |
4247 |
(progn |
(progn |
4248 |
(insert " calls:\n") |
(insert " calls:\n") |
4249 |
(setq p (point)) |
(setq p (point)) |
4250 |
(insert " " (mapconcat 'symbol-name calls ", ")) |
(insert " " (mapconcat 'symbol-name calls ", ")) |
4251 |
(let ((fill-prefix " ")) |
(let ((fill-prefix " ")) |
4252 |
(fill-region-as-paragraph p (point))))) |
(fill-region-as-paragraph p (point))) |
4253 |
(insert "\n") |
(unless (= 0 (current-column)) |
4254 |
|
(insert "\n")))) |
4255 |
(setq rest (cdr rest))) |
(setq rest (cdr rest))) |
4256 |
|
|
4257 |
(message "Generating call tree...(finding uncalled functions...)") |
(message "Generating call tree...(finding uncalled functions...)") |