Mercurial > emacs
changeset 27239:c681a4318a92
(display-time-string-forms): Make the Mail string active.
(display-time-update): Provide help-echo for load average.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 07 Jan 2000 14:19:23 +0000 |
| parents | bfb9906d58b5 |
| children | d7748c3e79ad |
| files | lisp/time.el |
| diffstat | 1 files changed, 14 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/time.el Fri Jan 07 14:16:07 2000 +0000 +++ b/lisp/time.el Fri Jan 07 14:19:23 2000 +0000 @@ -1,6 +1,6 @@ ;;; time.el --- display time and load in mode line of Emacs. -;; Copyright (C) 1985, 86, 87, 93, 94, 1996 Free Software Foundation, Inc. +;; Copyright (C) 1985, 86, 87, 93, 94, 96, 2000 Free Software Foundation, Inc. ;; Maintainer: FSF @@ -142,14 +142,20 @@ :group 'display-time) (defcustom display-time-string-forms - '((if (and (not display-time-format) display-time-day-and-date) + `((if (and (not display-time-format) display-time-day-and-date) (format-time-string "%a %b %e " now) "") (format-time-string (or display-time-format (if display-time-24hr-format "%H:%M" "%-I:%M%p")) now) load - (if mail " Mail" "")) + (if mail ,(propertize " Mail" + 'help-echo "mouse-2: Read mail" + 'local-map (make-mode-line-mouse2-map + (lambda (e) + (interactive "e") + (funcall read-mail-command)))) + "")) "*A list of expressions governing display of the time in the mode line. For most purposes, you can control the time format using `display-time-format' which is a more standard interface. @@ -204,8 +210,12 @@ (time (current-time-string now)) (load (condition-case () (if (zerop (car (load-average))) "" + ;; The load average number is myterious, so + ;; propvide some help. (let ((str (format " %03d" (car (load-average))))) - (concat (substring str 0 -2) "." (substring str -2)))) + (propertize + (concat (substring str 0 -2) "." (substring str -2)) + 'help-echo "Load average"))) (error ""))) (mail-spool-file (or display-time-mail-file (getenv "MAIL")