From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 22 Mar 1996 14:18:20 +0000 (+0000)
Subject: (elp-instrument-package): Don't instrument keymaps and autoloaded functions.
X-Git-Tag: emacs-19.34~1002
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ccab458cc51e82ed10ba436e024a0eced858913;p=emacs.git

(elp-instrument-package): Don't instrument keymaps and autoloaded functions.
---

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'.