diff options
| author | Richard M. Stallman | 2002-07-20 22:09:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-07-20 22:09:46 +0000 |
| commit | 21ece56347cf301fe322d022498e08381205ae54 (patch) | |
| tree | 065cb817a178a1156a1b51a544b8adab791190bd | |
| parent | a5dd5f602fde162160abf95750bbf0a417142b66 (diff) | |
| download | emacs-21ece56347cf301fe322d022498e08381205ae54.tar.gz emacs-21ece56347cf301fe322d022498e08381205ae54.zip | |
(display-warning, warn, lwarn): Add autoload cookie.
| -rw-r--r-- | lisp/warnings.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/warnings.el b/lisp/warnings.el index b03ed3f496a..d5f24f0083c 100644 --- a/lisp/warnings.el +++ b/lisp/warnings.el | |||
| @@ -162,6 +162,7 @@ SUPPRESS-LIST is the list of kinds of warnings to suppress." | |||
| 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). |
| @@ -236,6 +237,7 @@ See also `warning-series', `warning-prefix-function' and | |||
| 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', |
| @@ -253,6 +255,7 @@ LEVEL should be either :warning, :error, or :emergency. | |||
| 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', |