lisp/subr.el (delay-warning): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce10b033652e267bf5921550cd886c78d90b4384..37421981f7fd385e6ceba14a086d976b6c157a21 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-07-11  Juanma Barranquero  <lekktu@gmail.com>
+
+       * subr.el (delay-warning): New function.
+
 2013-07-10  Eli Zaretskii  <eliz@gnu.org>
 
        * simple.el (default-line-height): New function.

diff --git a/lisp/subr.el b/lisp/subr.el
index a0ad7227462efd57e75f9e102007e5b12ce77d2e..b6ee96f879e03eb5a4537a3a2c7807346a8c4ddf 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3853,6 +3853,7 @@ FILE should be the name of a library, with no directory name."
   (declare (obsolete eval-after-load "23.2"))
   (eval-after-load file (read)))
 
+\f
 (defun display-delayed-warnings ()
   "Display delayed warnings from `delayed-warnings-list'.
 Used from `delayed-warnings-hook' (which see)."
@@ -3886,6 +3887,12 @@ By default, this hook contains functions to consolidate the
 warnings listed in `delayed-warnings-list', display them, and set
 `delayed-warnings-list' back to nil.")
 
+(defun delay-warning (type message &optional level buffer-name)
+  "Display a delayed warning.
+Aside from going through `delayed-warnings-list', this is equivalent
+to `display-warning'."
+  (push (list type message level buffer-name) delayed-warnings-list))
+
 \f
 ;;;; invisibility specs