From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 17 Aug 2024 17:35:07 +0000 (-0400)
Subject: Further fix of reading and writing profiler data
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad9a25d1871d21e432079a55e15310b00c70df7f;p=emacs.git

Further fix of reading and writing profiler data

* lisp/profiler.el (profiler-report-make-entry-part): Print
strings as-is.  (Bug#72559)

(cherry picked from commit d6726e6dfc7f0a5133a0489bcdc21f10844692f2)
---

diff --git a/lisp/profiler.el b/lisp/profiler.el
index a5d62e20e3a..34e4d7032df 100644
--- a/lisp/profiler.el
+++ b/lisp/profiler.el
@@ -452,6 +452,11 @@ Do not touch this variable directly.")
   (let ((string (cond
 		 ((eq entry t)
 		  "Others")
+		 ;; When we save profile data into a file, the function
+                 ;; objects are replaced with their "names".  When we see
+                 ;; a string here, that's presumably why, so just print
+                 ;; it as-is.
+		 ((stringp entry) entry)
 		 (t (propertize (help-fns-function-name entry)
 		                ;; Override the `button-map' which
 		                ;; otherwise adds RET, mouse-1, and TAB