1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00

Further fix of reading and writing profiler data

* lisp/profiler.el (profiler-report-make-entry-part): Print
strings as-is.  (Bug#72559)
This commit is contained in:
Stefan Monnier 2024-08-17 13:35:07 -04:00 committed by Eli Zaretskii
parent 30b2fae77b
commit d6726e6dfc

View File

@ -452,6 +452,11 @@ Do not touch this variable directly.")
(let ((string (cond (let ((string (cond
((eq entry t) ((eq entry t)
"Others") "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) (t (propertize (help-fns-function-name entry)
;; Override the `button-map' which ;; Override the `button-map' which
;; otherwise adds RET, mouse-1, and TAB ;; otherwise adds RET, mouse-1, and TAB