mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

time.el minor doc fixes.

Browse Source 
* lisp/time.el (display-time-load-average, display-time-next-load-average):
Doc fixes.
This commit is contained in:
Glenn Morris 2012-01-05 23:45:55 -08:00
parent 7d5944b986
commit 2bb4227ed1
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2012-01-06 Glenn Morris <rgm@gnu.org>
* time.el (display-time-load-average, display-time-next-load-average):
Doc fixes.
* emacs-lisp/bytecomp.el (byte-compile-file): Do not propagate a file
local setting of buffer-read-only to the input buffer. (Bug#10419)

5
lisp/time.el
View File

@ -78,7 +78,8 @@ The value can be one of:
:group 'display-time)
(defvar display-time-load-average nil
"Load average currently being shown in mode line.")
"Load average currently being shown in mode line.
See `display-time-default-load-average'.")
(defcustom display-time-load-average-threshold 0.1
"Load-average values below this value won't be shown in the mode line."
@ -349,6 +350,8 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'."
(timer-activate timer)))))
(defun display-time-next-load-average ()
"Switch between different load averages in the mode line.
Switches from the 1 to 5 to 15 minute load average, and then back to 1."
(interactive)
(if (= 3 (setq display-time-load-average (1+ display-time-load-average)))
(setq display-time-load-average 0))