[Emacs-diffs] trunk r116384: * files.el (confirm-kill-emacs): Allow specifying an arbitrary predicate function.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 116384
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15455
committer: Lars Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2014-02-09 20:26:10 -0800
message:
  * files.el (confirm-kill-emacs): Allow specifying an arbitrary predicate 
function.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/files.el                  files.el-20091113204419-o5vbwnq5f7feedwu-265

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-10 02:53:15 +0000
+++ b/lisp/ChangeLog    2014-02-10 04:26:10 +0000
@@ -1,3 +1,8 @@
+2014-02-10  Lars Ingebrigtsen  <address@hidden>
+
+       * files.el (confirm-kill-emacs): Allow specifying an arbitrary
+       predicate function (bug#15455).
+
 2014-02-10  Dmitry Gutov  <address@hidden>
 
        * ielm.el (inferior-emacs-lisp-mode): Instead of

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2014-02-10 01:34:22 +0000
+++ b/lisp/files.el     2014-02-10 04:26:10 +0000
@@ -6501,7 +6501,8 @@
 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")