diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2004-09-08 12:04:22 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2004-09-08 12:04:22 +0000 |
| commit | 78bba1c8dd2779447e9febabfb2e32e6c885599a (patch) | |
| tree | 5e8c9ac7649f71dcf7c0918b7179de493d7e45fc /lisp/emacs-lisp | |
| parent | 6cc52547443061bd5b5a6930353162cf0f377ead (diff) | |
| download | emacs-78bba1c8dd2779447e9febabfb2e32e6c885599a.tar.gz emacs-78bba1c8dd2779447e9febabfb2e32e6c885599a.tar.bz2 emacs-78bba1c8dd2779447e9febabfb2e32e6c885599a.zip | |
(byte-compile-generate-call-tree): Doc fix.
(display-call-tree): Ensure newline after caller/calls blocks.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 0a12f6fae9f..2b0a8e698a6 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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...)") |