diff options
| -rw-r--r-- | lisp/profiler.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/profiler.el b/lisp/profiler.el index eb72f128c07..a5d62e20e3a 100644 --- a/lisp/profiler.el +++ b/lisp/profiler.el @@ -103,8 +103,13 @@ ;;; Backtraces +(defun profiler-fixup-entry (entry) + (if (symbolp entry) + entry + (substring-no-properties (help-fns-function-name entry)))) + (defun profiler-fixup-backtrace (backtrace) - (apply #'vector (mapcar #'help-fns-function-name backtrace))) + (apply #'vector (mapcar #'profiler-fixup-entry backtrace))) ;;; Logs |