# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1094645062 0
# Node ID e9a116c0f176b071309f7aeaf56b846f5c08b94d
# Parent  05692290fd24d6d5615c7484a1058c65373182b3
(byte-compile-generate-call-tree): Doc fix.
(display-call-tree): Ensure newline after caller/calls blocks.

diff -r 05692290fd24 -r e9a116c0f176 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Wed Sep 08 11:51:40 2004 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Sep 08 12:04:22 2004 +0000
@@ -354,7 +354,7 @@
 
 (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 @@
 				 (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...)")