procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Also count symbol plists in memory-report

Browse source 
* lisp/emacs-lisp/memory-report.el (memory-report--symbol-plist):
New function.
(memory-report): Use it.
This commit is contained in:
Lars Ingebrigtsen 2020-12-30 08:29:06 +01:00
parent 3c0c47b3a7
commit dc771b6c40
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/memory-report.el
View file

@ -48,6 +48,7 @@ by counted more than once."
(message "Gathering data...")
(let ((reports (append (memory-report--garbage-collect)
(memory-report--image-cache)
(memory-report--symbol-plist)
(memory-report--buffers)
(memory-report--largest-variables)))
(inhibit-read-only t)
@ -159,6 +160,17 @@ by counted more than once."
"\n"))
(buffer-string)))))
(defun memory-report--symbol-plist ()
(let ((counted (make-hash-table :test #'eq))
(total 0))
(mapatoms
(lambda (symbol)
(cl-incf total (memory-report--object-size
counted (symbol-plist symbol))))
obarray)
(list
(cons "Memory Used By Symbol Plists" total))))
(defun memory-report--object-size (counted value)
(if (gethash value counted)
0