Commit 78bba1c8 authored by Thien-Thi Nguyen's avatar Thien-Thi Nguyen
Browse files

(byte-compile-generate-call-tree): Doc fix.

(display-call-tree): Ensure newline after caller/calls blocks.
parent 6cc52547
...@@ -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...)")
......
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