[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/memrep 7d8994e: Add progress report
From: |
Lars Ingebrigtsen |
Subject: |
scratch/memrep 7d8994e: Add progress report |
Date: |
Thu, 10 Dec 2020 07:31:11 -0500 (EST) |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/memrep 7d8994e: Add progress report,
Lars Ingebrigtsen <=