diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-08-14 08:48:43 -0400 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2024-08-17 12:50:26 +0300 |
| commit | 7b752a93a46bca1ec11f00a47a85aebcecb69980 (patch) | |
| tree | 41b65a39194bce939d45bf1bcae57fecf2dfcde1 | |
| parent | bfe07eca5981fe80ddc8a54b18dd9340ad5ec2be (diff) | |
Fix dumping of Lisp profiles
* lisp/profiler.el (profiler-fixup-entry): New function.
(profiler-fixup-backtrace): Use it. (Bug#72559)
| -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 |