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

[Miles Bader]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.98.2.24 
emacs/lisp/emacs-lisp/bytecomp.el:2.98.2.25
*** emacs/lisp/emacs-lisp/bytecomp.el:2.98.2.24 Sat Sep  4 09:22:56 2004
--- emacs/lisp/emacs-lisp/bytecomp.el   Thu Sep 16 00:12:21 2004
***************
*** 365,371 ****
  
  (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.
--- 365,371 ----
  
  (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.
***************
*** 4240,4254 ****
                                 (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...)")
--- 4240,4257 ----
                                 (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...)")