🚀 go-pugleaf

In GNU Emacs 18.55.95 ("18.56 beta") the display-time functions in
library "time.el" depend on the "load-average" being implemented on
your machine.  There is no way to turn off the request to
load-average, which errors if it is not implemented on your favorite
machine.  Here is a diff that makes displaying the load average
optional, so you can still get the time of day and such:

26,27d25
< (defvar display-load-ave nil
<   "*Non-nil means to display the load average with time in the mode line.")
66,68c64
<       (load (if display-load-ave
<                 (format "%03d" (car (load-average)))
<               nil))
---
>       (load (format "%03d" (car (load-average))))
83,85c79
<                 (if load
<                     (concat (substring load 0 -2) "." (substring load -2))
<                     "")
---
>                 (substring load 0 -2) "." (substring load -2)

The default for display-load-ave might want to be t; that's up to you.

A better way to fix this would be to make load-average more polite if
not called interactively, or passed the right flag.

Or someone could implement load-average for the RS6000, but that's not
a general solution.

By the way, I think this is a nicer, cleaner implementation of the
display-time package.

						dca@verity.com