# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1246574939 0
# Node ID 585c452d8bf2b87dde8cc0c1e8de46146c46ce14
# Parent  eace56b963d4ca428d113e4139204f225bbc432c
(tramp-gvfs-connection-mounted-p): Use `elt' instead of `mount-info'.

diff -r eace56b963d4 -r 585c452d8bf2 lisp/net/tramp-gvfs.el
--- a/lisp/net/tramp-gvfs.el	Thu Jul 02 22:48:18 2009 +0000
+++ b/lisp/net/tramp-gvfs.el	Thu Jul 02 22:48:59 2009 +0000
@@ -925,7 +925,7 @@
 	 nil)
       ;; The interface of mount-info has been changed.  We must handle
       ;; both cases.
-      (let* ((last-nth (if (nth 9 mount-info) 9 8))
+      (let* ((last-nth (if (nth 9 elt) 9 8))
 	     (mount-spec (nth 1 (nth last-nth elt)))
 	     (method (dbus-byte-array-to-string
 		      (cadr (assoc "type" mount-spec))))