/[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.153 by jpw, Sat Aug 14 10:00:37 2004 UTC revision 2.154 by ttn, Wed Sep 8 12:04:22 2004 UTC
# Line 354  Elements of the list may be be: Line 354  Elements of the list may be be:
354    
355  (defcustom byte-compile-generate-call-tree nil  (defcustom byte-compile-generate-call-tree nil
356    "*Non-nil means collect call-graph information when compiling.    "*Non-nil means collect call-graph information when compiling.
357  This records functions were called and from where.  This records which functions were called and from where.
358  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.
359  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
360  the graph.  the graph.
# Line 3878  invoked interactively." Line 3878  invoked interactively."
3878                                   (mapconcat 'symbol-name callers ", ")                                   (mapconcat 'symbol-name callers ", ")
3879                                 "<top level>"))                                 "<top level>"))
3880                (let ((fill-prefix "    "))                (let ((fill-prefix "    "))
3881                  (fill-region-as-paragraph p (point)))))                  (fill-region-as-paragraph p (point)))
3882                  (unless (= 0 (current-column))
3883                    (insert "\n"))))
3884          (if calls          (if calls
3885              (progn              (progn
3886                (insert "  calls:\n")                (insert "  calls:\n")
3887                (setq p (point))                (setq p (point))
3888                (insert "    " (mapconcat 'symbol-name calls ", "))                (insert "    " (mapconcat 'symbol-name calls ", "))
3889                (let ((fill-prefix "    "))                (let ((fill-prefix "    "))
3890                  (fill-region-as-paragraph p (point)))))                  (fill-region-as-paragraph p (point)))
3891          (insert "\n")                (unless (= 0 (current-column))
3892                    (insert "\n"))))
3893          (setq rest (cdr rest)))          (setq rest (cdr rest)))
3894    
3895        (message "Generating call tree...(finding uncalled functions...)")        (message "Generating call tree...(finding uncalled functions...)")

Legend:
Removed from v.2.153  
changed lines
  Added in v.2.154

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