/[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.135.2.4 by miles, Fri Aug 27 07:00:26 2004 UTC revision 2.135.2.5 by miles, Thu Sep 9 09:36:32 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 3880  invoked interactively." Line 3880  invoked interactively."
3880                                   (mapconcat 'symbol-name callers ", ")                                   (mapconcat 'symbol-name callers ", ")
3881                                 "<top level>"))                                 "<top level>"))
3882                (let ((fill-prefix "    "))                (let ((fill-prefix "    "))
3883                  (fill-region-as-paragraph p (point)))))                  (fill-region-as-paragraph p (point)))
3884                  (unless (= 0 (current-column))
3885                    (insert "\n"))))
3886          (if calls          (if calls
3887              (progn              (progn
3888                (insert "  calls:\n")                (insert "  calls:\n")
3889                (setq p (point))                (setq p (point))
3890                (insert "    " (mapconcat 'symbol-name calls ", "))                (insert "    " (mapconcat 'symbol-name calls ", "))
3891                (let ((fill-prefix "    "))                (let ((fill-prefix "    "))
3892                  (fill-region-as-paragraph p (point)))))                  (fill-region-as-paragraph p (point)))
3893          (insert "\n")                (unless (= 0 (current-column))
3894                    (insert "\n"))))
3895          (setq rest (cdr rest)))          (setq rest (cdr rest)))
3896    
3897        (message "Generating call tree...(finding uncalled functions...)")        (message "Generating call tree...(finding uncalled functions...)")

Legend:
Removed from v.2.135.2.4  
changed lines
  Added in v.2.135.2.5

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