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

[Miles Bader]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.135.2.4 
emacs/lisp/emacs-lisp/bytecomp.el:2.135.2.5
*** emacs/lisp/emacs-lisp/bytecomp.el:2.135.2.4 Fri Aug 27 07:00:26 2004
--- emacs/lisp/emacs-lisp/bytecomp.el   Thu Sep  9 09:36:32 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.
***************
*** 3880,3894 ****
                                 (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...)")
--- 3880,3897 ----
                                 (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...)")