From: Mattias Engdegård <mattiase@acm.org>
Date: Fri, 16 Jul 2021 11:04:14 +0000 (+0200)
Subject: Define revert-buffer-function for *Memory Report*
X-Git-Tag: emacs-28.0.90~1834
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=24a8cc5e707affad345e085b6fe8c778559533f6;p=emacs.git

Define revert-buffer-function for *Memory Report*

* lisp/emacs-lisp/memory-report.el (memory-report):
Allow the memory report buffer to be updated by pressing 'g'.
---

diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el
index f4f03133b0f..1125dde4055 100644
--- a/lisp/emacs-lisp/memory-report.el
+++ b/lisp/emacs-lisp/memory-report.el
@@ -44,6 +44,8 @@ by counted more than once."
   (pop-to-buffer "*Memory Report*")
   (special-mode)
   (button-mode 1)
+  (setq-local revert-buffer-function (lambda (_ignore-auto _noconfirm)
+                                       (memory-report)))
   (setq truncate-lines t)
   (message "Gathering data...")
   (let ((reports (append (memory-report--garbage-collect)