From 1b9be2f9975a849e642ecc87240bd8fe27d2405f Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 9 Feb 2014 20:26:10 -0800 Subject: [PATCH] * files.el (confirm-kill-emacs): Allow specifying an arbitrary predicate function. --- lisp/ChangeLog | 5 +++++ lisp/files.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 206e8d8753b..cfc7de2fbd8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-02-10 Lars Ingebrigtsen + + * files.el (confirm-kill-emacs): Allow specifying an arbitrary + predicate function (bug#15455). + 2014-02-10 Dmitry Gutov * ielm.el (inferior-emacs-lisp-mode): Instead of diff --git a/lisp/files.el b/lisp/files.el index 686a1b7c5d3..88b6ae6dae7 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -6501,7 +6501,8 @@ If nil, the default, don't ask at all. If the value is non-nil, it should be a predicate function such as `yes-or-no-p'." :type '(choice (const :tag "Ask with yes-or-no-p" yes-or-no-p) (const :tag "Ask with y-or-n-p" y-or-n-p) - (const :tag "Don't confirm" nil)) + (const :tag "Don't confirm" nil) + (function :tag "Predicate function")) :group 'convenience :version "21.1") -- 2.11.4.GIT