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

6ccab458 · Richard M. Stallman · dd4d27ca · 6ccab458
Commit 6ccab458 authored Mar 22, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

lisp/emacs-lisp/elp.el lisp/emacs-lisp/elp.el +3 -3

No files found.
--- 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'.