[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el

[Thien-Thi Nguyen]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.153 
emacs/lisp/emacs-lisp/bytecomp.el:2.154
*** emacs/lisp/emacs-lisp/bytecomp.el:2.153     Sat Aug 14 10:00:37 2004
--- emacs/lisp/emacs-lisp/bytecomp.el   Wed Sep  8 12:04:22 2004
***************
*** 354,360 ****
  
  (defcustom byte-compile-generate-call-tree nil
    "*Non-nil means collect call-graph information when compiling.
! This records 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.
--- 354,360 ----
  
  (defcustom byte-compile-generate-call-tree nil
    "*Non-nil means collect call-graph information when compiling.
! 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,3892 ****
                                 (mapconcat 'symbol-name callers ", ")
                               "<top level>"))
              (let ((fill-prefix "    "))
!               (fill-region-as-paragraph p (point)))))
        (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")
        (setq rest (cdr rest)))
  
        (message "Generating call tree...(finding uncalled functions...)")
--- 3878,3895 ----
                                 (mapconcat 'symbol-name callers ", ")
                               "<top level>"))
              (let ((fill-prefix "    "))
!               (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)))
!               (unless (= 0 (current-column))
!                 (insert "\n"))))
        (setq rest (cdr rest)))
  
        (message "Generating call tree...(finding uncalled functions...)")