Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
42343747
Commit
42343747
authored
Sep 25, 2010
by
Julien Danjou
Committed by
Glenn Morris
Sep 25, 2010
Browse files
* lisp/notifications.el: Call dbus-register-signal only if it is bound.
parent
ec60da52
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
20 additions
and
14 deletions
+20
-14
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/notifications.el
lisp/notifications.el
+16
-14
No files found.
lisp/ChangeLog
View file @
42343747
2010-09-25 Julien Danjou <julien@danjou.info>
* notifications.el: Call dbus-register-signal only if it is bound.
2010-09-25 Glenn Morris <rgm@gnu.org>
* eshell/em-alias.el, eshell/em-banner.el, eshell/em-basic.el:
...
...
lisp/notifications.el
View file @
42343747
...
...
@@ -95,13 +95,14 @@
(
funcall
(
cadr
entry
)
id
action
)
(
remove
entry
'notifications-on-action-map
))))
(
dbus-register-signal
:session
notifications-service
notifications-path
notifications-interface
notifications-action-signal
'notifications-on-action-signal
)
(
when
(
fboundp
'dbus-register-signal
)
(
dbus-register-signal
:session
notifications-service
notifications-path
notifications-interface
notifications-action-signal
'notifications-on-action-signal
))
(
defun
notifications-on-closed-signal
(
id
reason
)
"Dispatch signals to callback functions from `notifications-on-closed-map'."
...
...
@@ -111,13 +112,14 @@
id
(
cadr
(
assoc
reason
notifications-closed-reason
)))
(
remove
entry
'notifications-on-close-map
))))
(
dbus-register-signal
:session
notifications-service
notifications-path
notifications-interface
notifications-closed-signal
'notifications-on-closed-signal
)
(
when
(
fboundp
'dbus-register-signal
)
(
dbus-register-signal
:session
notifications-service
notifications-path
notifications-interface
notifications-closed-signal
'notifications-on-closed-signal
))
(
defun
notifications-notify
(
&rest
params
)
"Send notification via D-Bus using the Freedesktop notification protocol.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment