summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/memory-report.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2021-03-18 08:33:40 +0100
committerLars Ingebrigtsen <larsi@gnus.org>2021-03-18 08:33:40 +0100
commit21e1a126b54390b5a22e5af836d14ae8f4e423fb (patch)
tree53bb1659a953b19b95d40ec7683998b765e39c95 /lisp/emacs-lisp/memory-report.el
parent1e00906926325a85649394f201f575c4e3170637 (diff)
downloademacs-21e1a126b54390b5a22e5af836d14ae8f4e423fb.tar.gz
emacs-21e1a126b54390b5a22e5af836d14ae8f4e423fb.tar.bz2
emacs-21e1a126b54390b5a22e5af836d14ae8f4e423fb.zip
Make memory-report work with buffer-local unbound vars
* lisp/emacs-lisp/memory-report.el (memory-report--buffer-data): Protect against buffer-local unbound variables (bug#47057).
Diffstat (limited to 'lisp/emacs-lisp/memory-report.el')
-rw-r--r--lisp/emacs-lisp/memory-report.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el
index 3d6ca957e63..ecbca280e59 100644
--- a/lisp/emacs-lisp/memory-report.el
+++ b/lisp/emacs-lisp/memory-report.el
@@ -295,7 +295,7 @@ by counted more than once."
(- (position-bytes (point-min)))
(gap-size)))
(seq-reduce #'+ (mapcar (lambda (elem)
- (if (cdr elem)
+ (if (and (consp elem) (cdr elem))
(memory-report--object-size
(make-hash-table :test #'eq)
(cdr elem))