mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Fix dumping of Lisp profiles

Browse Source 
* lisp/profiler.el (profiler-fixup-entry): New function.
(profiler-fixup-backtrace): Use it.  (Bug#72559)
This commit is contained in:
Stefan Monnier 2024-08-14 08:48:43 -04:00 committed by Eli Zaretskii
parent bfe07eca59
commit 7b752a93a4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/profiler.el
View File

@ -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