diff options
| -rw-r--r-- | lisp/profiler.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/profiler.el b/lisp/profiler.el index 13ac040f565..b25eed05bdb 100644 --- a/lisp/profiler.el +++ b/lisp/profiler.el @@ -448,7 +448,7 @@ Optional argument MODE means only check for the specified mode (cpu or mem)." :group 'profiler) (defvar profiler-report-cpu-line-format - '((14 right ((9 right) + '((17 right ((12 right) (5 right))) (1 left "%s") (0 left))) @@ -500,7 +500,11 @@ RET: expand or collapse")) (defun profiler-report-header-line-format (fmt &rest args) (let* ((header (apply #'profiler-format fmt args)) (escaped (replace-regexp-in-string "%" "%%" header))) - (concat " " escaped))) + (concat + (propertize " " + 'display '(space :align-to 0) + 'face 'fixed-pitch) + escaped))) (defun profiler-report-line-format (tree) (let ((diff-p (profiler-profile-diff-p profiler-report-profile)) |