Mercurial > emacs
comparison lisp/time.el @ 27547:66e75f4824c8
(display-time-update): Change load-average help-echo.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 31 Jan 2000 22:14:01 +0000 |
parents | c681a4318a92 |
children | c9d52e101c13 |
comparison
equal
deleted
inserted
replaced
27546:3ff1b0a2c6b7 | 27547:66e75f4824c8 |
---|---|
213 ;; The load average number is myterious, so | 213 ;; The load average number is myterious, so |
214 ;; propvide some help. | 214 ;; propvide some help. |
215 (let ((str (format " %03d" (car (load-average))))) | 215 (let ((str (format " %03d" (car (load-average))))) |
216 (propertize | 216 (propertize |
217 (concat (substring str 0 -2) "." (substring str -2)) | 217 (concat (substring str 0 -2) "." (substring str -2)) |
218 'help-echo "Load average"))) | 218 'help-echo "System load average"))) |
219 (error ""))) | 219 (error ""))) |
220 (mail-spool-file (or display-time-mail-file | 220 (mail-spool-file (or display-time-mail-file |
221 (getenv "MAIL") | 221 (getenv "MAIL") |
222 (concat rmail-spool-directory | 222 (concat rmail-spool-directory |
223 (user-login-name)))) | 223 (user-login-name)))) |