Commit 53099cfc authored by Juanma Barranquero's avatar Juanma Barranquero

(display-warning, lwarn, warning-minimum-log-level): Doc fixes.

(warning-minimum-level, warning-minimum-log-level): Add :debug to defcustom's
choices.
parent 06266fbb
......@@ -28,7 +28,7 @@
* eshell/esh-test.el (eshell-test-ok, eshell-test-failed):
Remove "-face" suffix from face names.
(eshell-test-ok-face, eshell-test-failed-face):
(eshell-test-ok-face, eshell-test-failed-face):
New backward-compatibility aliases for renamed faces.
(eshell-run-test): Use renamed eshell-test faces.
......@@ -47,7 +47,7 @@
(eshell-ls-unreadable-face, eshell-ls-special-face)
(eshell-ls-missing-face, eshell-ls-archive-face)
(eshell-ls-backup-face, eshell-ls-product-face)
(eshell-ls-clutter-face):
(eshell-ls-clutter-face):
New backward-compatibility aliases for renamed faces.
(eshell-ls-decorated-name): Use renamed eshell-ls faces.
......@@ -58,6 +58,11 @@
2005-06-17 Juanma Barranquero <lekktu@gmail.com>
* emacs-lisp/warnings.el (display-warning, lwarn)
(warning-minimum-log-level): Doc fixes.
(warning-minimum-level, warning-minimum-log-level):
Add :debug to :type choices.
* progmodes/ada-mode.el (ada-format-paramlist)
(ada-get-indent-case, ada-check-matching-start)
(ada-check-defun-name, ada-goto-matching-decl-start)
......
......@@ -76,16 +76,20 @@ If a warning's severity level is lower than this,
the warning is logged in the warnings buffer, but the buffer
is not immediately displayed. See also `warning-minimum-log-level'."
:group 'warnings
:type '(choice (const :emergency) (const :error) (const :warning))
:type '(choice (const :emergency) (const :error)
(const :warning) (const :debug))
:version "22.1")
(defvaralias 'display-warning-minimum-level 'warning-minimum-level)
(defcustom warning-minimum-log-level :warning
"Minimum severity level for logging a warning.
If a warning severity level is lower than this,
the warning is completely ignored."
the warning is completely ignored.
Value must be lower or equal than `warning-minimum-level',
because warnings not logged aren't displayed either."
:group 'warnings
:type '(choice (const :emergency) (const :error) (const :warning))
:type '(choice (const :emergency) (const :error)
(const :warning) (const :debug))
:version "22.1")
(defvaralias 'log-warning-minimum-level 'warning-minimum-log-level)
......@@ -203,7 +207,9 @@ or a list of symbols whose first element is a custom group name.
\(The rest of the symbols represent subcategories, for warning purposes
only, and you can use whatever symbols you like.)
LEVEL should be either :warning, :error, or :emergency.
LEVEL should be either :debug, :warning, :error, or :emergency
\(but see `warning-minimum-level' and `warning-minimum-log-level').
:emergency -- a problem that will seriously impair Emacs operation soon
if you do not attend to it promptly.
:error -- data or circumstances that are inherently wrong.
......@@ -223,7 +229,7 @@ See also `warning-series', `warning-prefix-function' and
(if (assq level warning-level-aliases)
(setq level (cdr (assq level warning-level-aliases))))
(or (< (warning-numeric-level level)
(warning-numeric-level warning-minimum-log-level))
(warning-numeric-level warning-minimum-log-level))
(warning-suppress-p type warning-suppress-log-types)
(let* ((typename (if (consp type) (car type) type))
(buffer (get-buffer-create (or buffer-name "*Warnings*")))
......@@ -291,11 +297,14 @@ or a list of symbols whose first element is a custom group name.
\(The rest of the symbols represent subcategories and
can be whatever you like.)
LEVEL should be either :warning, :error, or :emergency.
LEVEL should be either :debug, :warning, :error, or :emergency
\(but see `warning-minimum-level' and `warning-minimum-log-level').
:emergency -- a problem that will seriously impair Emacs operation soon
if you do not attend to it promptly.
:error -- invalid data or circumstances.
:warning -- suspicious data or circumstances."
:warning -- suspicious data or circumstances.
:debug -- info for debugging only."
(display-warning type (apply 'format message args) level))
;;;###autoload
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment