[Emacs-diffs] master 01/02: * erc-desktop-notifications.el (erc-notifications-bus): New customer option. Supports cases when Emacs hasn't been invoked in the same environment where the notifications shall go to. (erc-notifications-notify): Use it.

[Michael Albinus]

branch: master
commit 709a5173cd98d1e67724d1d02c437fa63681c3b6
Author: Michael Albinus <address@hidden>
Date:   Sun Nov 23 10:00:28 2014 +0100

    * erc-desktop-notifications.el (erc-notifications-bus):
    New customer option.  Supports cases when Emacs hasn't been
    invoked in the same environment where the notifications shall go to.
    (erc-notifications-notify): Use it.
---
 lisp/erc/ChangeLog                    |    7 +++++++
 lisp/erc/erc-desktop-notifications.el |    9 ++++++++-
 2 files changed, 15 insertions(+), 1 deletions(-)

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 9b8ec66..2004de4 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,10 @@
+2014-11-23  Michael Albinus  <address@hidden>
+
+       * erc-desktop-notifications.el (erc-notifications-bus):
+       New customer option.  Supports cases when Emacs hasn't been
+       invoked in the same environment where the notifications shall go to.
+       (erc-notifications-notify): Use it.
+
 2014-11-10  Kelvin White  <address@hidden>
 
        * erc-stamp.el (erc-timestamp-intangible): Change version tag to 24.5.
diff --git a/lisp/erc/erc-desktop-notifications.el 
b/lisp/erc/erc-desktop-notifications.el
index c0362b7..c8945cf 100644
--- a/lisp/erc/erc-desktop-notifications.el
+++ b/lisp/erc/erc-desktop-notifications.el
@@ -46,6 +46,12 @@
   :group 'erc-notifications
   :type '(choice (const :tag "No icon" nil) file))
 
+(defcustom erc-notifications-bus :session
+  "D-Bus bus to use for notification."
+  :version "24.5"
+  :group 'erc-notifications
+  :type '(choice (const :tag "Session bus" :session) string))
+
 (defvar dbus-debug) ; used in the macroexpansion of dbus-ignore-errors
 
 (defun erc-notifications-notify (nick msg)
@@ -53,7 +59,8 @@
 This will replace the last notification sent with this function."
   (dbus-ignore-errors
     (setq erc-notifications-last-notification
-          (notifications-notify :title (xml-escape-string nick)
+          (notifications-notify :bus erc-notifications-bus
+                               :title (xml-escape-string nick)
                                 :body (xml-escape-string msg)
                                 :replaces-id 
erc-notifications-last-notification
                                 :app-icon erc-notifications-icon))))