From 30194d4d1b45fb4d096b5b98976bad4549127cc1 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 12 Sep 2009 01:40:11 +0000 Subject: [PATCH] * emacs-lisp/elp.el (elp-not-profilable): Add more functions (Bug#4233). --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/elp.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d8441603366..f6935ce2064 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-09-12 Andreas Politz (tiny change) + + * emacs-lisp/elp.el (elp-not-profilable): Add more + functions (Bug#4233). + 2009-09-12 Chong Yidong * 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 756aa3c778b..5fede8243c0 100644 --- 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.") -- 2.39.2