From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 7 May 2019 14:48:32 +0000 (+0300)
Subject: Fix 'load-average' on MS-Windows
X-Git-Tag: emacs-27.0.90~2953
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e10d08df7edbb2e9e90169d19c3361099802fad6;p=emacs.git

Fix 'load-average' on MS-Windows

* src/w32.c (getloadavg): Always return at least one element
of the array.
---

diff --git a/src/w32.c b/src/w32.c
index 677c37fcb5d..833ff4c7e4a 100644
--- a/src/w32.c
+++ b/src/w32.c
@@ -2003,6 +2003,13 @@ getloadavg (double loadavg[], int nelem)
       loadavg[elem] = avg;
     }
 
+  /* Always return at least one element, otherwise load-average
+     returns nil, and Lisp programs might decide we cannot measure
+     system load.  For example, jit-lock-stealth-load's defcustom
+     might decide that feature is "unsupported".  */
+  if (elem == 0)
+    loadavg[elem++] = 0.09;	/* < display-time-load-average-threshold */
+
   return elem;
 }