# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1252719611 0
# Node ID cc423a84dd77365b990176dd26db69466938ea70
# Parent  522f4ac8f10a992e4e142df54800314b9a820605
* emacs-lisp/elp.el (elp-not-profilable): Add more functions (Bug#4233).

diff -r 522f4ac8f10a -r cc423a84dd77 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Sep 12 01:30:51 2009 +0000
+++ b/lisp/ChangeLog	Sat Sep 12 01:40:11 2009 +0000
@@ -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 -r 522f4ac8f10a -r cc423a84dd77 lisp/emacs-lisp/elp.el
--- a/lisp/emacs-lisp/elp.el	Sat Sep 12 01:30:51 2009 +0000
+++ b/lisp/emacs-lisp/elp.el	Sat Sep 12 01:40:11 2009 +0000
@@ -210,7 +210,10 @@
     ;; (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.")