[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el [lexbind] |
Date: |
Wed, 15 Sep 2004 20:43:47 -0400 |
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...)")