;; we return t.
some-match))
+;;;###autoload
(defun display-warning (group message &optional level buffer-name)
"Display a warning message, MESSAGE.
GROUP should be a custom group name (a symbol).
(set-window-start window warning-series))
(sit-for 0)))))))
+;;;###autoload
(defun lwarn (group level message &rest args)
"Display a warning message made from (format MESSAGE ARGS...).
Aside from generating the message with `format',
:warning -- suspicious data or circumstances."
(display-warning group (apply 'format message args) level))
+;;;###autoload
(defun warn (message &rest args)
"Display a warning message made from (format MESSAGE ARGS...).
Aside from generating the message with `format',