diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-03-22 14:18:20 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-03-22 14:18:20 +0000 |
commit | 6ccab458cc51e82ed10ba436e024a0eced858913 (patch) | |
tree | 389278afbfe794ee1fdce580a54bb6f64b756908 /lisp/emacs-lisp/elp.el | |
parent | dd4d27ca9e2f98f20895c2ba3f4059b4a7b0a119 (diff) | |
download | emacs-6ccab458cc51e82ed10ba436e024a0eced858913.tar.gz |
(elp-instrument-package): Don't instrument keymaps and autoloaded functions.
Diffstat (limited to 'lisp/emacs-lisp/elp.el')
-rw-r--r-- | lisp/emacs-lisp/elp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index 37ade7b5b73..7c07e900b38 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el @@ -300,9 +300,9 @@ For example, to instrument all ELP functions, do the following: (function (lambda (sym) (and (fboundp sym) - (not (eq (car-safe - (symbol-function sym)) - 'macro))))))))) + (not (memq (car-safe + (symbol-function sym)) + '(macro keymap autoload)))))))))) (defun elp-restore-list (&optional list) "Restore the original definitions for all functions in `elp-function-list'. |