mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
(display-call-tree): Ensure newline after caller/calls blocks.
This commit is contained in:
Thien-Thi Nguyen 2004-09-08 12:04:22 +00:00
parent 6cc5254744
commit 78bba1c8dd
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/emacs-lisp/bytecomp.el
View File

@ -354,7 +354,7 @@ Elements of the list may be be:
(defcustom byte-compile-generate-call-tree nil
"*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 neither t nor nil, compilation asks you whether to display
the graph.
@ -3878,15 +3878,18 @@ invoked interactively."
(mapconcat 'symbol-name callers ", ")
"<top level>"))
(let ((fill-prefix " "))
(fill-region-as-paragraph p (point)))))
(fill-region-as-paragraph p (point)))
(unless (= 0 (current-column))
(insert "\n"))))
(if calls
(progn
(insert " calls:\n")
(setq p (point))
(insert " " (mapconcat 'symbol-name calls ", "))
(let ((fill-prefix " "))
(fill-region-as-paragraph p (point)))))
(insert "\n")
(fill-region-as-paragraph p (point)))
(unless (= 0 (current-column))
(insert "\n"))))
(setq rest (cdr rest)))
(message "Generating call tree...(finding uncalled functions...)")