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 677c37fcb5d1ecb03cc1aab16f62047d4c080fdd..833ff4c7e4abb8de55317bdf183a79353de59c6b 100644 (file)
--- 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;
 }