From 5b77774d024ce0c13b1b071b447a344fe5c70bd7 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 7 Feb 2012 10:06:19 +0100 Subject: [PATCH] * notifications.el (notifications-on-closed-signal): Make `reason' optional. (Bug#10744) --- lisp/ChangeLog | 5 +++++ lisp/notifications.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f69b94fdb7..e04126bf4e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-02-07 Michael Albinus + + * notifications.el (notifications-on-closed-signal): Make `reason' + optional. (Bug#10744) + 2012-02-07 Glenn Morris * emacs-lisp/easy-mmode.el (define-minor-mode): diff --git a/lisp/notifications.el b/lisp/notifications.el index c3b6c75950..9f7576b3f5 100644 --- a/lisp/notifications.el +++ b/lisp/notifications.el @@ -107,9 +107,12 @@ notifications-action-signal 'notifications-on-action-signal)) -(defun notifications-on-closed-signal (id reason) +(defun notifications-on-closed-signal (id &optional reason) "Dispatch signals to callback functions from `notifications-on-closed-map'." - (let ((entry (assoc id notifications-on-close-map))) + ;; notification-daemon prior 0.4.0 does not send a reason. So we + ;; make it optional, and assume `undefined' as default. + (let ((entry (assoc id notifications-on-close-map)) + (reason (or reason 4))) (when entry (funcall (cadr entry) id (cadr (assoc reason notifications-closed-reason))) -- 2.20.1