Re: A tip: how to display longer function names in profiler-report

[Alan Mackenzie]

Hello, Clément.

On Mon, Dec 21, 2020 at 15:24:06 -0500, Clément Pit-Claudel wrote:
> On 12/21/20 11:32 AM, Alan Mackenzie wrote:
> > Hello, Emacs.

> > It's annoyed me for a long time that profiler-report wastes so much
> > horizontal screen space, and truncates function names horribly.  And
> > that's in CC Mode, which has a very short package prefix, "c-".

> I think the best fix would be to put the CPU samples and % columns
> first instead of last, and put the function name column last, with no
> limits on how far to the right it might expand.

That's an utterly brilliant idea!  Thanks!

Something like, very roughly: ....



diff --git a/lisp/profiler.el b/lisp/profiler.el
index bf8aacccc3..20486da29b 100644
--- a/lisp/profiler.el
+++ b/lisp/profiler.el
@@ -445,9 +445,10 @@ profiler-report-leaf-mark
   :group 'profiler)
 
 (defvar profiler-report-cpu-line-format
-  '((50 left)
-    (24 right ((19 right)
-              (5 right)))))
+  '((24 right ((19 right)
+              (5 right)))
+    (90 left))
+                           )
 
 (defvar profiler-report-memory-line-format
   '((55 left)
@@ -505,13 +512,14 @@ profiler-report-line-format
     (profiler-format (cl-ecase (profiler-profile-type profiler-report-profile)
                       (cpu profiler-report-cpu-line-format)
                       (memory profiler-report-memory-line-format))
-                    name-part
                     (if diff-p
                         (list (if (> count 0)
                                   (format "+%s" count)
                                 count)
                               "")
-                      (list count count-percent)))))
+                      (list count count-percent))
+                     name-part
+                                                  )))
 
 (defun profiler-report-insert-calltree (tree)
   (let ((line (profiler-report-line-format tree)))
@@ -735,7 +748,8 @@ profiler-report-describe-entry
            (cpu
             (profiler-report-header-line-format
              profiler-report-cpu-line-format
-             "Function" (list "CPU samples" "%")))
+             (list "CPU samples" "%") "Function"
+                                                 ))
            (memory
             (profiler-report-header-line-format
              profiler-report-memory-line-format


-- 
Alan Mackenzie (Nuremberg, Germany).