procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
optional.  (Bug#10744)
This commit is contained in:
Michael Albinus 2012-02-07 10:06:19 +01:00
parent 60d47423d1
commit 5b77774d02
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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):

7
lisp/notifications.el
View file

@ -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)))