Further fix of reading and writing profiler data

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

diff --git a/lisp/profiler.el b/lisp/profiler.el
index a5d62e20e3aa4abcb970914dfd6ad5b14b23115d..34e4d7032dfdfc371fd6c28dae9957c26da1508b 100644 (file)
--- 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