scratch/memrep 7d8994e: Add progress report

[Lars Ingebrigtsen]

branch: scratch/memrep
commit 7d8994e1986c1e77a56387f2ca8757ab7162922d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add progress report
---
 lisp/emacs-lisp/memory-report.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el
index 370cf31..b7e2894 100644
--- a/lisp/emacs-lisp/memory-report.el
+++ b/lisp/emacs-lisp/memory-report.el
@@ -32,6 +32,7 @@
   (pop-to-buffer "*Memory-Report*")
   (special-mode)
   (setq truncate-lines t)
+  (message "Gathering data...")
   (let ((reports (append (memory-report--garbage-collect)
                          (memory-report--image-cache)
                          (memory-report--buffers)
@@ -39,6 +40,7 @@
                          (memory-report--largest-variables)))
         (inhibit-read-only t)
         summaries details)
+    (message "Gathering data...done")
     (erase-buffer)
     (insert (propertize "Estimated Emacs Memory Usage\n\n" 'face 'bold))
     (dolist (report reports)
@@ -218,7 +220,7 @@
   (let ((buffers (mapcar (lambda (buffer)
                            (cons buffer (memory-report--buffer buffer)))
                          (buffer-list))))
-    (list (cons "Total Memory Usage In Buffers"
+    (list (cons "Total Buffer Memory Usage"
                 (seq-reduce #'+ (mapcar #'cdr buffers) 0))
           (with-temp-buffer
             (insert (propertize "Largest Buffers\n\n" 'face 'bold))