Mercurial > emacs
comparison lisp/warnings.el @ 46579:e07579b3efcc
(display-warning, warn, lwarn): Add autoload cookie.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 20 Jul 2002 22:09:46 +0000 |
parents | 30fda32839de |
children | ba559abe46e6 |
comparison
equal
deleted
inserted
replaced
46578:374154e86bdf | 46579:e07579b3efcc |
---|---|
160 (setq some-match t))))) | 160 (setq some-match t))))) |
161 ;; If some element of SUPPRESS-LIST matched, | 161 ;; If some element of SUPPRESS-LIST matched, |
162 ;; we return t. | 162 ;; we return t. |
163 some-match)) | 163 some-match)) |
164 | 164 |
165 ;;;###autoload | |
165 (defun display-warning (group message &optional level buffer-name) | 166 (defun display-warning (group message &optional level buffer-name) |
166 "Display a warning message, MESSAGE. | 167 "Display a warning message, MESSAGE. |
167 GROUP should be a custom group name (a symbol). | 168 GROUP should be a custom group name (a symbol). |
168 or else a list of symbols whose first element is a custom group name. | 169 or else a list of symbols whose first element is a custom group name. |
169 \(The rest of the symbols represent subcategories, for warning purposes | 170 \(The rest of the symbols represent subcategories, for warning purposes |
234 (let ((window (display-buffer buffer))) | 235 (let ((window (display-buffer buffer))) |
235 (when warning-series | 236 (when warning-series |
236 (set-window-start window warning-series)) | 237 (set-window-start window warning-series)) |
237 (sit-for 0))))))) | 238 (sit-for 0))))))) |
238 | 239 |
240 ;;;###autoload | |
239 (defun lwarn (group level message &rest args) | 241 (defun lwarn (group level message &rest args) |
240 "Display a warning message made from (format MESSAGE ARGS...). | 242 "Display a warning message made from (format MESSAGE ARGS...). |
241 Aside from generating the message with `format', | 243 Aside from generating the message with `format', |
242 this is equivalent to `display-message'. | 244 this is equivalent to `display-message'. |
243 | 245 |
251 if you do not attend to it promptly. | 253 if you do not attend to it promptly. |
252 :error -- invalid data or circumstances. | 254 :error -- invalid data or circumstances. |
253 :warning -- suspicious data or circumstances." | 255 :warning -- suspicious data or circumstances." |
254 (display-warning group (apply 'format message args) level)) | 256 (display-warning group (apply 'format message args) level)) |
255 | 257 |
258 ;;;###autoload | |
256 (defun warn (message &rest args) | 259 (defun warn (message &rest args) |
257 "Display a warning message made from (format MESSAGE ARGS...). | 260 "Display a warning message made from (format MESSAGE ARGS...). |
258 Aside from generating the message with `format', | 261 Aside from generating the message with `format', |
259 this is equivalent to `display-message', using | 262 this is equivalent to `display-message', using |
260 `emacs' as the group and `:warning' as the level." | 263 `emacs' as the group and `:warning' as the level." |