Commit 62f91105 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Add autoloads.

parent c0fd04c8
...@@ -2,11 +2,11 @@ ...@@ -2,11 +2,11 @@
;; Copyright (C) 1994 Free Software Foundation, Inc. ;; Copyright (C) 1994 Free Software Foundation, Inc.
;; Author: 1994 Barry A. Warsaw, Century Computing, Inc. <bwarsaw@cen.com> ;; Author: 1994 Barry A. Warsaw <bwarsaw@cnri.reston.va.us>
;; Maintainer: bwarsaw@cen.com ;; Maintainer: tools-help@anthem.nlm.nih.gov
;; Created: 26-Feb-1994 ;; Created: 26-Feb-1994
;; Version: 2.15 ;; Version: 2.18
;; Last Modified: 1994/07/05 13:46:02 ;; Last Modified: 1994/09/14 14:00:09
;; Keywords: Emacs Lisp Profile Timing ;; Keywords: Emacs Lisp Profile Timing
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
;; profiler.el. Both were written for Emacs 18 and both were pretty ;; 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 ;; good first shots at profiling, but I found that they didn't provide
;; the functionality or interface that I wanted. So I wrote this. ;; 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. ;; point in even trying to make this work with Emacs 18.
;; Unlike previous profilers, elp uses Emacs 19's built-in function ;; Unlike previous profilers, elp uses Emacs 19's built-in function
...@@ -156,7 +156,7 @@ functions will be displayed.") ...@@ -156,7 +156,7 @@ functions will be displayed.")
;; end user configuration variables ;; end user configuration variables
(defconst elp-version "2.15" (defconst elp-version "2.18"
"ELP version number.") "ELP version number.")
(defconst elp-help-address "tools-help@anthem.nlm.nih.gov" (defconst elp-help-address "tools-help@anthem.nlm.nih.gov"
...@@ -179,6 +179,7 @@ This variable is set by the master function.") ...@@ -179,6 +179,7 @@ This variable is set by the master function.")
"Master function symbol.") "Master function symbol.")
;;;###autoload
(defun elp-instrument-function (funsym) (defun elp-instrument-function (funsym)
"Instrument FUNSYM for profiling. "Instrument FUNSYM for profiling.
FUNSYM must be a symbol of a defined function." FUNSYM must be a symbol of a defined function."
...@@ -232,6 +233,7 @@ 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))) (cons funsym elp-all-instrumented-list)))
)) ))
;;;###autoload
(defun elp-restore-function (funsym) (defun elp-restore-function (funsym)
"Restore an instrumented function to its original definition. "Restore an instrumented function to its original definition.
Argument FUNSYM is the symbol of a defined function." Argument FUNSYM is the symbol of a defined function."
...@@ -261,6 +263,7 @@ 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)) (assq 'elp-wrapper (symbol-function funsym))
(fset funsym (aref info 2))))) (fset funsym (aref info 2)))))
;;;###autoload
(defun elp-instrument-list (&optional list) (defun elp-instrument-list (&optional list)
"Instrument for profiling, all functions in `elp-function-list'. "Instrument for profiling, all functions in `elp-function-list'.
Use optional LIST if provided instead." Use optional LIST if provided instead."
...@@ -268,6 +271,7 @@ Use optional LIST if provided instead." ...@@ -268,6 +271,7 @@ Use optional LIST if provided instead."
(let ((list (or list elp-function-list))) (let ((list (or list elp-function-list)))
(mapcar 'elp-instrument-function list))) (mapcar 'elp-instrument-function list)))
;;;###autoload
(defun elp-instrument-package (prefix) (defun elp-instrument-package (prefix)
"Instrument for profiling, all functions which start with PREFIX. "Instrument for profiling, all functions which start with PREFIX.
For example, to instrument all ELP functions, do the following: For example, to instrument all ELP functions, do the following:
...@@ -437,6 +441,7 @@ original definition, use \\[elp-restore-function] or \\[elp-restore-all]." ...@@ -437,6 +441,7 @@ original definition, use \\[elp-restore-function] or \\[elp-restore-all]."
(insert avetime)) (insert avetime))
(insert "\n")))) (insert "\n"))))
;;;###autoload
(defun elp-results () (defun elp-results ()
"Display current profiling results. "Display current profiling results.
If `elp-reset-after-results' is non-nil, then current profiling If `elp-reset-after-results' is non-nil, then current profiling
...@@ -508,6 +513,7 @@ displayed." ...@@ -508,6 +513,7 @@ displayed."
(eval-when-compile (eval-when-compile
(require 'reporter)) (require 'reporter))
;;;###autoload
(defun elp-submit-bug-report () (defun elp-submit-bug-report ()
"Submit via mail, a bug report on elp." "Submit via mail, a bug report on elp."
(interactive) (interactive)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment