From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 13 Dec 2020 00:11:56 +0000 (+0100)
Subject: * Fix `memory-report' for '--without-x' builds
X-Git-Tag: emacs-28.0.90~4736
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=831659b3b88d42ea5e4adab2be3316cfffa2efd1;p=emacs.git

* Fix `memory-report' for '--without-x' builds

	* lisp/emacs-lisp/memory-report.el
	(memory-report--image-cache): Don't call `image-cache-size' if
	unbound.
---

diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el
index c88d9f2768a..04ae87d9ea0 100644
--- a/lisp/emacs-lisp/memory-report.el
+++ b/lisp/emacs-lisp/memory-report.el
@@ -294,7 +294,9 @@ by counted more than once."
                                       (overlay-lists)))))
 
 (defun memory-report--image-cache ()
-  (list (cons "Total Image Cache Size" (image-cache-size))))
+  (list (cons "Total Image Cache Size" (if (fboundp 'image-cache-size)
+                                           (image-cache-size)
+                                         0))))
 
 (provide 'memory-report)