162 |
;; we return t. |
;; we return t. |
163 |
some-match)) |
some-match)) |
164 |
|
|
165 |
|
;;;###autoload |
166 |
(defun display-warning (group message &optional level buffer-name) |
(defun display-warning (group message &optional level buffer-name) |
167 |
"Display a warning message, MESSAGE. |
"Display a warning message, MESSAGE. |
168 |
GROUP should be a custom group name (a symbol). |
GROUP should be a custom group name (a symbol). |
237 |
(set-window-start window warning-series)) |
(set-window-start window warning-series)) |
238 |
(sit-for 0))))))) |
(sit-for 0))))))) |
239 |
|
|
240 |
|
;;;###autoload |
241 |
(defun lwarn (group level message &rest args) |
(defun lwarn (group level message &rest args) |
242 |
"Display a warning message made from (format MESSAGE ARGS...). |
"Display a warning message made from (format MESSAGE ARGS...). |
243 |
Aside from generating the message with `format', |
Aside from generating the message with `format', |
255 |
:warning -- suspicious data or circumstances." |
:warning -- suspicious data or circumstances." |
256 |
(display-warning group (apply 'format message args) level)) |
(display-warning group (apply 'format message args) level)) |
257 |
|
|
258 |
|
;;;###autoload |
259 |
(defun warn (message &rest args) |
(defun warn (message &rest args) |
260 |
"Display a warning message made from (format MESSAGE ARGS...). |
"Display a warning message made from (format MESSAGE ARGS...). |
261 |
Aside from generating the message with `format', |
Aside from generating the message with `format', |