/[emacs]/emacs/lisp/emacs-lisp/bytecomp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/bytecomp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.98.2.24 by miles, Sat Sep 4 09:22:56 2004 UTC revision 2.98.2.25 by miles, Thu Sep 16 00:12:21 2004 UTC
# Line 365  Elements of the list may be be: Line 365  Elements of the list may be be:
365    
366  (defcustom byte-compile-generate-call-tree nil  (defcustom byte-compile-generate-call-tree nil
367    "*Non-nil means collect call-graph information when compiling.    "*Non-nil means collect call-graph information when compiling.
368  This records functions were called and from where.  This records which functions were called and from where.
369  If the value is t, compilation displays the call graph when it finishes.  If the value is t, compilation displays the call graph when it finishes.
370  If the value is neither t nor nil, compilation asks you whether to display  If the value is neither t nor nil, compilation asks you whether to display
371  the graph.  the graph.
# Line 4240  invoked interactively." Line 4240  invoked interactively."
4240                                   (mapconcat 'symbol-name callers ", ")                                   (mapconcat 'symbol-name callers ", ")
4241                                 "<top level>"))                                 "<top level>"))
4242                (let ((fill-prefix "    "))                (let ((fill-prefix "    "))
4243                  (fill-region-as-paragraph p (point)))))                  (fill-region-as-paragraph p (point)))
4244                  (unless (= 0 (current-column))
4245                    (insert "\n"))))
4246          (if calls          (if calls
4247              (progn              (progn
4248                (insert "  calls:\n")                (insert "  calls:\n")
4249                (setq p (point))                (setq p (point))
4250                (insert "    " (mapconcat 'symbol-name calls ", "))                (insert "    " (mapconcat 'symbol-name calls ", "))
4251                (let ((fill-prefix "    "))                (let ((fill-prefix "    "))
4252                  (fill-region-as-paragraph p (point)))))                  (fill-region-as-paragraph p (point)))
4253          (insert "\n")                (unless (= 0 (current-column))
4254                    (insert "\n"))))
4255          (setq rest (cdr rest)))          (setq rest (cdr rest)))
4256    
4257        (message "Generating call tree...(finding uncalled functions...)")        (message "Generating call tree...(finding uncalled functions...)")

Legend:
Removed from v.2.98.2.24  
changed lines
  Added in v.2.98.2.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26