diff options
| author | Sergey Vinokurov | 2022-01-21 12:42:22 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-01-21 12:43:19 +0100 |
| commit | fbc9b121e0624bd20c2aaddeeb2cd6be14294465 (patch) | |
| tree | 2b4b388465acab270cc6e4e064095968992efba8 | |
| parent | f08dfa9b532648457590262c1afa9729e87c6bb1 (diff) | |
| download | emacs-fbc9b121e0624bd20c2aaddeeb2cd6be14294465.tar.gz emacs-fbc9b121e0624bd20c2aaddeeb2cd6be14294465.zip | |
Fix memory-report-object-size to initialize memory-report--type-size
* lisp/emacs-lisp/memory-report.el (memory-report-object-size):
Allow using function directly (bug#53310).
Do not merge to master.
| -rw-r--r-- | lisp/emacs-lisp/memory-report.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el index eae0e36234b..d9c0f02820e 100644 --- a/lisp/emacs-lisp/memory-report.el +++ b/lisp/emacs-lisp/memory-report.el | |||
| @@ -75,7 +75,7 @@ by counted more than once." | |||
| 75 | 75 | ||
| 76 | (defun memory-report-object-size (object) | 76 | (defun memory-report-object-size (object) |
| 77 | "Return the size of OBJECT in bytes." | 77 | "Return the size of OBJECT in bytes." |
| 78 | (unless memory-report--type-size | 78 | (when (zerop (hash-table-count memory-report--type-size)) |
| 79 | (memory-report--garbage-collect)) | 79 | (memory-report--garbage-collect)) |
| 80 | (memory-report--object-size (make-hash-table :test #'eq) object)) | 80 | (memory-report--object-size (make-hash-table :test #'eq) object)) |
| 81 | 81 | ||