Mercurial > emacs
comparison lisp/net/dbus.el @ 87537:84ece2f8e012
* net/dbus.el (dbus-name-owner-changed-handler): Use
dbus-unregister-object instead of dbus-unregister-signal.
author | Magnus Henoch <mange@freemail.hu> |
---|---|
date | Thu, 03 Jan 2008 16:37:32 +0000 |
parents | bb538e56f976 |
children | 9554989ee375 |
comparison
equal
deleted
inserted
replaced
87536:5dfd374d9c21 | 87537:84ece2f8e012 |
---|---|
1 ;;; -*- no-byte-compile: t; -*- | 1 ;;; -*- no-byte-compile: t; -*- |
2 ;;; dbus.el --- Elisp bindings for D-Bus. | 2 ;;; dbus.el --- Elisp bindings for D-Bus. |
3 | 3 |
4 ;; Copyright (C) 2007 Free Software Foundation, Inc. | 4 ;; Copyright (C) 2007, 2008 Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: Michael Albinus <michael.albinus@gmx.de> | 6 ;; Author: Michael Albinus <michael.albinus@gmx.de> |
7 ;; Keywords: comm, hardware | 7 ;; Keywords: comm, hardware |
8 | 8 |
9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
90 (dolist (elt value) | 90 (dolist (elt value) |
91 ;; key has the structure (BUS INTERFACE SIGNAL). | 91 ;; key has the structure (BUS INTERFACE SIGNAL). |
92 ;; elt has the structure (UNAME SERVICE PATH HANDLER). | 92 ;; elt has the structure (UNAME SERVICE PATH HANDLER). |
93 (when (string-equal old-owner (car elt)) | 93 (when (string-equal old-owner (car elt)) |
94 ;; Remove old key, and add new entry with changed name. | 94 ;; Remove old key, and add new entry with changed name. |
95 (dbus-unregister-signal (list key (cdr elt))) | 95 (dbus-unregister-object (list key (cdr elt))) |
96 ;; Maybe we could arrange the lists a little bit better | 96 ;; Maybe we could arrange the lists a little bit better |
97 ;; that we don't need to extract every single element? | 97 ;; that we don't need to extract every single element? |
98 (dbus-register-signal | 98 (dbus-register-signal |
99 ;; BUS SERVICE PATH | 99 ;; BUS SERVICE PATH |
100 (nth 0 key) (nth 1 elt) (nth 2 elt) | 100 (nth 0 key) (nth 1 elt) (nth 2 elt) |