mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

* net/tramp-gvfs.el (top): Use timeout of 100 msec pinging GVFS

Browse Source 
daemon.  Replace ping by checking for running service for bluez
and zeroconf.  (Bug#4239)
This commit is contained in:
Michael Albinus 2009-08-25 10:26:16 +00:00
parent 93fb0645d6
commit 0b35b48e66
2 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/ChangeLog
View File

@ -1,3 +1,27 @@
2009-08-25 Michael Albinus <michael.albinus@gmx.de>
* simple.el (process-file-side-effects): New defvar.
* dired-aux.el (dired-show-file-type):
* vc.el (vc-diff-internal):
* vc-arch.el (vc-arch-diff):
* vc-bzr.el (vc-bzr-sha1, vc-bzr-revision-completion-table):
* vc-cvs.el (vc-cvs-state, vc-cvs-diff, vc-cvs-revision-table):
* vc-git.el (vc-git-registered, vc-git-working-revision)
(vc-git-find-revision, vc-git-diff, vc-git-revision-table)
(vc-git--empty-db-p):
* vc-hooks.el (vc-user-login-name):
* vc-svn.el (vc-svn-registered, vc-svn-state)
(vc-svn-dir-extra-headers, vc-svn-find-revision):
* progmodes/grep.el (grep-probe): Let-bind
`process-file-side-effects' with nil.
* net/dbus.el (dbus-ping): Add optional parameter TIMEOUT.
* net/tramp-gvfs.el (top): Use timeout of 100 msec pinging GVFS
daemon. Replace ping by checking for running service for bluez
and zeroconf. (Bug#4239)
2009-08-25 Kevin Ryde <user42@zip.com.au>
* net/dig.el (dig): Add autoload cookie.

6
lisp/net/tramp-gvfs.el
View File

@ -144,7 +144,7 @@
"The well known name of the GVFS daemon.")
;; Check that GVFS is available.
(unless (dbus-ping :session tramp-gvfs-service-daemon)
(unless (dbus-ping :session tramp-gvfs-service-daemon 100)
(throw 'tramp-loading nil))
(defconst tramp-gvfs-path-mounttracker "/org/gtk/vfs/mounttracker"
@ -1177,7 +1177,7 @@ be used."
(tramp-bluez-list-devices)))
;; Add completion function for OBEX method.
(when (dbus-ping :system tramp-bluez-service)
(when (member tramp-bluez-service (dbus-list-known-names :system))
(tramp-set-completion-function
"obex" '((tramp-bluez-parse-device-names ""))))
@ -1210,7 +1210,7 @@ be used."
(zeroconf-list-services "_webdav._tcp")))
;; Add completion function for DAV and DAVS methods.
(when (dbus-ping :system zeroconf-service-avahi)
(when (member zeroconf-service-avahi (dbus-list-known-names :system))
(zeroconf-init tramp-gvfs-zeroconf-domain)
(tramp-set-completion-function
"sftp" '((tramp-zeroconf-parse-workstation-device-names "")))