Commit 5b77774d authored by Michael Albinus's avatar Michael Albinus
Browse files

* notifications.el (notifications-on-closed-signal): Make `reason'

  optional.  (Bug#10744)
parent 60d47423
2012-02-07 Michael Albinus <michael.albinus@gmx.de>
* notifications.el (notifications-on-closed-signal): Make `reason'
optional. (Bug#10744)
2012-02-07 Glenn Morris <rgm@gnu.org>
* emacs-lisp/easy-mmode.el (define-minor-mode):
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment