changeset 104973:cc423a84dd77

* emacs-lisp/elp.el (elp-not-profilable): Add more functions (Bug#4233).
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 12 Sep 2009 01:40:11 +0000
parents 522f4ac8f10a
children 646ba543ede9
files lisp/ChangeLog lisp/emacs-lisp/elp.el
diffstat 2 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)
--- 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.")