aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2002-07-20 22:09:46 +0000
committerRichard M. Stallman2002-07-20 22:09:46 +0000
commit21ece56347cf301fe322d022498e08381205ae54 (patch)
tree065cb817a178a1156a1b51a544b8adab791190bd
parenta5dd5f602fde162160abf95750bbf0a417142b66 (diff)
downloademacs-21ece56347cf301fe322d022498e08381205ae54.tar.gz
emacs-21ece56347cf301fe322d022498e08381205ae54.zip
(display-warning, warn, lwarn): Add autoload cookie.
-rw-r--r--lisp/warnings.el3
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.
167GROUP should be a custom group name (a symbol). 168GROUP 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...).
241Aside from generating the message with `format', 243Aside 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...).
258Aside from generating the message with `format', 261Aside from generating the message with `format',