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',