* emacs-lisp/elp.el (elp-not-profilable): Add more functions (Bug#4233).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d84416033660067e94872c8d5665cf32aec919c4..f6935ce2064d0740c8e88c7a33fc8c0360616fd3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-12  Andreas Politz  <politza@fh-trier.de>  (tiny change)
+
+       * emacs-lisp/elp.el (elp-not-profilable): Add more
+       functions (Bug#4233).
+
 2009-09-12  Chong Yidong  <cyd@stupidchicken.com>
 
        * emulation/pc-select.el (scroll-down-mark, scroll-down-nomark)

diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el
index 756aa3c778bc8b3a4e5b62777471c134636b31a5..5fede8243c0e6b20322ae9ddfd2c13eca277eef3 100644 (file)
--- a/lisp/emacs-lisp/elp.el
+++ b/lisp/emacs-lisp/elp.el
@@ -210,7 +210,10 @@ This variable is set by the master function.")
     ;; (delq nil (mapcar (lambda (x) (and (symbolp x) (fboundp x) x))
     ;;                   (aref (symbol-function 'elp-wrapper) 2)))
     ;; to help me find this list.
-    error call-interactively apply current-time)
+    error call-interactively apply current-time
+    ;; Andreas Politz reports problems profiling these (Bug#4233):
+    + byte-code-function-p functionp byte-code subrp
+    indirect-function fboundp)
   "List of functions that cannot be profiled.
 Those functions are used internally by the profiling code and profiling
 them would thus lead to infinite recursion.")