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

lisp/ChangeLog

+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)

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.")