diff options
| author | Daniel Hackney <dan@haxney.org> | 2013-09-04 23:30:07 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-09-04 23:30:07 -0400 |
| commit | 6c42fc3efbbf590fca00b866859fbfa13d34b70a (patch) | |
| tree | 0519b227a10215d99c1bc1373130c993ff93c623 /lisp/net/dbus.el | |
| parent | 4c528aabaa750d9a4e739dde482b307b734dcd62 (diff) | |
| download | emacs-6c42fc3efbbf590fca00b866859fbfa13d34b70a.tar.gz emacs-6c42fc3efbbf590fca00b866859fbfa13d34b70a.tar.bz2 emacs-6c42fc3efbbf590fca00b866859fbfa13d34b70a.zip | |
* lisp/dired-x.el:
* lisp/net/ange-ftp.el:
* lisp/net/browse-url.el:
* lisp/net/dbus.el:
* lisp/net/eudc.el:
* lisp/net/eudcb-ldap.el:
* lisp/net/eww.el:
* lisp/net/imap.el:
* lisp/printing.el:
* lisp/vc/ediff-diff.el:
* lisp/vc/ediff-init.el:
* lisp/vc/ediff-merg.el:
* lisp/vc/ediff-mult.el:
* lisp/vc/ediff-util.el:
* lisp/vc/ediff-wind.el:
* lisp/vc/ediff.el:
* lisp/vc/emerge.el:
* lisp/vc/pcvs.el:
* vc/vc-annotate.el: Prefix unused arguments with `_' to silence
byte compiler. Remove some unused let-bound variables.
Diffstat (limited to 'lisp/net/dbus.el')
| -rw-r--r-- | lisp/net/dbus.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el index 0e9c4fc5c76..a05452c430c 100644 --- a/lisp/net/dbus.el +++ b/lisp/net/dbus.el @@ -1609,7 +1609,6 @@ and \"org.freedesktop.DBus.Properties.GetAll\", which is slow." It will be registered for all objects created by `dbus-register-method'." (let* ((last-input-event last-input-event) (bus (dbus-event-bus-name last-input-event)) - (service (dbus-event-service-name last-input-event)) (path (dbus-event-path-name last-input-event))) ;; "GetManagedObjects" returns "a{oa{sa{sv}}}". (let (interfaces result) @@ -1625,8 +1624,7 @@ It will be registered for all objects created by `dbus-register-method'." ;; Check all registered object paths. (maphash (lambda (key val) - (let ((object (or (nth 2 (car-safe val)) "")) - (interface (nth 2 key))) + (let ((object (or (nth 2 (car-safe val)) ""))) (when (and (equal (butlast key 2) (list :method bus)) (string-prefix-p path object)) (dolist (interface (cons (nth 2 key) interfaces)) |