From d77974bfcacb720419e6fcbe3d6f5c37c5a790d6 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 11 Jul 2013 03:49:17 +0200 Subject: [PATCH] lisp/subr.el (delay-warning): New function. --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 7 +++++++ 2 files changed, 11 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ce10b033652..37421981f7f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-07-11 Juanma Barranquero + + * subr.el (delay-warning): New function. + 2013-07-10 Eli Zaretskii * simple.el (default-line-height): New function. diff --git a/lisp/subr.el b/lisp/subr.el index a0ad7227462..b6ee96f879e 100644 --- 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))) + (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)) + ;;;; invisibility specs -- 2.39.2