summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/elp.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-03-22 14:18:20 +0000
committerRichard M. Stallman <rms@gnu.org>1996-03-22 14:18:20 +0000
commit6ccab458cc51e82ed10ba436e024a0eced858913 (patch)
tree389278afbfe794ee1fdce580a54bb6f64b756908 /lisp/emacs-lisp/elp.el
parentdd4d27ca9e2f98f20895c2ba3f4059b4a7b0a119 (diff)
downloademacs-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.el6
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'.