[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-30 7b752a93a46: Fix dumping of Lisp profiles
From: |
Eli Zaretskii |
Subject: |
emacs-30 7b752a93a46: Fix dumping of Lisp profiles |
Date: |
Sat, 17 Aug 2024 05:51:10 -0400 (EDT) |
branch: emacs-30
commit 7b752a93a46bca1ec11f00a47a85aebcecb69980
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Eli Zaretskii <eliz@gnu.org>
Fix dumping of Lisp profiles
* lisp/profiler.el (profiler-fixup-entry): New function.
(profiler-fixup-backtrace): Use it. (Bug#72559)
---
lisp/profiler.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-30 7b752a93a46: Fix dumping of Lisp profiles,
Eli Zaretskii <=