From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 14 Aug 2024 12:48:43 +0000 (-0400)
Subject: Fix dumping of Lisp profiles
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7033302aa4dfed30e2732a50e031afc2de5395c;p=emacs.git

Fix dumping of Lisp profiles

* lisp/profiler.el (profiler-fixup-entry): New function.
(profiler-fixup-backtrace): Use it.  (Bug#72559)

(cherry picked from commit 7b752a93a46bca1ec11f00a47a85aebcecb69980)
---

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