Mercurial > emacs
comparison lisp/time.el @ 64903:7d23835637c8
(display-time-use-mail-icon, display-time-format)
(display-time-string-forms): Shorten first line of docstrings.
author | Luc Teirlinck <teirllm@auburn.edu> |
---|---|
date | Thu, 11 Aug 2005 01:53:17 +0000 |
parents | 41bb365f41c4 |
children | 7fad4c175274 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
64902:9d8572704ff4 | 64903:7d23835637c8 |
---|---|
140 "Image specification to offer as the mail indicator on a graphic display. | 140 "Image specification to offer as the mail indicator on a graphic display. |
141 See `display-time-use-mail-icon' and `display-time-mail-face'.") | 141 See `display-time-use-mail-icon' and `display-time-mail-face'.") |
142 | 142 |
143 ;; Fixme: Default to icon on graphical display? | 143 ;; Fixme: Default to icon on graphical display? |
144 (defcustom display-time-use-mail-icon nil | 144 (defcustom display-time-use-mail-icon nil |
145 "Non-nil means use an icon as the mail indicator on a graphic display. | 145 "Non-nil means use an icon as mail indicator on a graphic display. |
146 Otherwise use `display-time-mail-string'. The icon may consume less | 146 Otherwise use `display-time-mail-string'. The icon may consume less |
147 of the mode line. It is specified by `display-time-mail-icon'." | 147 of the mode line. It is specified by `display-time-mail-icon'." |
148 :group 'display-time | 148 :group 'display-time |
149 :type 'boolean) | 149 :type 'boolean) |
150 | 150 |
159 ;; multibyte text. | 159 ;; multibyte text. |
160 (const :tag "Unicode letter character" "✉") | 160 (const :tag "Unicode letter character" "✉") |
161 string)) | 161 string)) |
162 | 162 |
163 (defcustom display-time-format nil | 163 (defcustom display-time-format nil |
164 "*A string specifying the format for displaying the time in the mode line. | 164 "*String specifying format for displaying the time in the mode line. |
165 See the function `format-time-string' for an explanation of | 165 See the function `format-time-string' for an explanation of |
166 how to write this string. If this is nil, the defaults | 166 how to write this string. If this is nil, the defaults |
167 depend on `display-time-day-and-date' and `display-time-24hr-format'." | 167 depend on `display-time-day-and-date' and `display-time-24hr-format'." |
168 :type '(choice (const :tag "Default" nil) | 168 :type '(choice (const :tag "Default" nil) |
169 string) | 169 string) |
202 'help-echo "You have new mail; mouse-2: Read mail" | 202 'help-echo "You have new mail; mouse-2: Read mail" |
203 'mouse-face 'mode-line-highlight | 203 'mouse-face 'mode-line-highlight |
204 'local-map (make-mode-line-mouse-map 'mouse-2 | 204 'local-map (make-mode-line-mouse-map 'mouse-2 |
205 read-mail-command))) | 205 read-mail-command))) |
206 "")) | 206 "")) |
207 "*A list of expressions governing display of the time in the mode line. | 207 "*List of expressions governing display of the time in the mode line. |
208 For most purposes, you can control the time format using `display-time-format' | 208 For most purposes, you can control the time format using `display-time-format' |
209 which is a more standard interface. | 209 which is a more standard interface. |
210 | 210 |
211 This expression is a list of expressions that can involve the keywords | 211 This expression is a list of expressions that can involve the keywords |
212 `load', `day', `month', and `year', `12-hours', `24-hours', `minutes', | 212 `load', `day', `month', and `year', `12-hours', `24-hours', `minutes', |