diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-14 20:24:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-14 20:24:21 +0000 |
| commit | 62f91105e48e4375bc36282be271421d1a232f32 (patch) | |
| tree | 0eed74061e772a1a037cd1f696c9f628a629d425 /lisp/emacs-lisp/elp.el | |
| parent | c0fd04c89d55b0cec2183cb2d4a1ea06cf024f18 (diff) | |
| download | emacs-62f91105e48e4375bc36282be271421d1a232f32.tar.gz | |
Add autoloads.
Diffstat (limited to 'lisp/emacs-lisp/elp.el')
| -rw-r--r-- | lisp/emacs-lisp/elp.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index 30eb2154134..0b421d10224 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el @@ -2,11 +2,11 @@ ;; Copyright (C) 1994 Free Software Foundation, Inc. -;; Author: 1994 Barry A. Warsaw, Century Computing, Inc. <bwarsaw@cen.com> -;; Maintainer: bwarsaw@cen.com +;; Author: 1994 Barry A. Warsaw <bwarsaw@cnri.reston.va.us> +;; Maintainer: tools-help@anthem.nlm.nih.gov ;; Created: 26-Feb-1994 -;; Version: 2.15 -;; Last Modified: 1994/07/05 13:46:02 +;; Version: 2.18 +;; Last Modified: 1994/09/14 14:00:09 ;; Keywords: Emacs Lisp Profile Timing ;; This file is part of GNU Emacs. @@ -32,7 +32,7 @@ ;; profiler.el. Both were written for Emacs 18 and both were pretty ;; good first shots at profiling, but I found that they didn't provide ;; the functionality or interface that I wanted. So I wrote this. -;; I've tested elp in Lucid Emacs 19.9 and Emacs 19.22. There's no +;; I've tested elp in Lucid Emacs 19.9 and Emacs 19.22. There's no ;; point in even trying to make this work with Emacs 18. ;; Unlike previous profilers, elp uses Emacs 19's built-in function @@ -156,7 +156,7 @@ functions will be displayed.") ;; end user configuration variables -(defconst elp-version "2.15" +(defconst elp-version "2.18" "ELP version number.") (defconst elp-help-address "tools-help@anthem.nlm.nih.gov" @@ -179,6 +179,7 @@ This variable is set by the master function.") "Master function symbol.") +;;;###autoload (defun elp-instrument-function (funsym) "Instrument FUNSYM for profiling. FUNSYM must be a symbol of a defined function." @@ -232,6 +233,7 @@ FUNSYM must be a symbol of a defined function." (cons funsym elp-all-instrumented-list))) )) +;;;###autoload (defun elp-restore-function (funsym) "Restore an instrumented function to its original definition. Argument FUNSYM is the symbol of a defined function." @@ -261,6 +263,7 @@ Argument FUNSYM is the symbol of a defined function." (assq 'elp-wrapper (symbol-function funsym)) (fset funsym (aref info 2))))) +;;;###autoload (defun elp-instrument-list (&optional list) "Instrument for profiling, all functions in `elp-function-list'. Use optional LIST if provided instead." @@ -268,6 +271,7 @@ Use optional LIST if provided instead." (let ((list (or list elp-function-list))) (mapcar 'elp-instrument-function list))) +;;;###autoload (defun elp-instrument-package (prefix) "Instrument for profiling, all functions which start with PREFIX. For example, to instrument all ELP functions, do the following: @@ -437,6 +441,7 @@ original definition, use \\[elp-restore-function] or \\[elp-restore-all]." (insert avetime)) (insert "\n")))) +;;;###autoload (defun elp-results () "Display current profiling results. If `elp-reset-after-results' is non-nil, then current profiling @@ -508,6 +513,7 @@ displayed." (eval-when-compile (require 'reporter)) +;;;###autoload (defun elp-submit-bug-report () "Submit via mail, a bug report on elp." (interactive) |