Mercurial > emacs

comparison lisp/net/dbus.el @ 87537:84ece2f8e012

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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)