diff options
| author | Dave Love <fx@gnu.org> | 2000-01-07 14:19:23 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-01-07 14:19:23 +0000 |
| commit | 2977ab99c7e55a2e3afa918b3ada6bfa7959a94a (patch) | |
| tree | 1fbe5b7e8d49b0db2db5d9d7f1a8c08b76f940e6 /lisp/time.el | |
| parent | c8de91dfce2ce5bd11d1b96e53a074d6b10f6ed6 (diff) | |
| download | emacs-2977ab99c7e55a2e3afa918b3ada6bfa7959a94a.tar.gz | |
(display-time-string-forms): Make the Mail string active.
(display-time-update): Provide help-echo for load average.
Diffstat (limited to 'lisp/time.el')
| -rw-r--r-- | lisp/time.el | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/lisp/time.el b/lisp/time.el index 17a215b30ca..5b293f295ef 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -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 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'." :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 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'." (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") |