[Emacs-diffs] trunk r113364: lisp/subr.el (delay-warning): New function.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113364
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2013-07-11 03:49:17 +0200
message:
  lisp/subr.el (delay-warning): New function.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/subr.el                   subr.el-20091113204419-o5vbwnq5f7feedwu-151

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-10 16:18:17 +0000
+++ b/lisp/ChangeLog    2013-07-11 01:49:17 +0000
@@ -1,3 +1,7 @@
+2013-07-11  Juanma Barranquero  <address@hidden>
+
+       * subr.el (delay-warning): New function.
+
 2013-07-10  Eli Zaretskii  <address@hidden>
 
        * simple.el (default-line-height): New function.

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2013-07-07 22:50:34 +0000
+++ b/lisp/subr.el      2013-07-11 01:49:17 +0000
@@ -3853,6 +3853,7 @@
   (declare (obsolete eval-after-load "23.2"))
   (eval-after-load file (read)))
 
+
 (defun display-delayed-warnings ()
   "Display delayed warnings from `delayed-warnings-list'.
 Used from `delayed-warnings-hook' (which see)."
@@ -3886,6 +3887,12 @@
 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))
+
 
 ;;;; invisibility specs