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)))) |