* net/tramp.el (top): Make check for tramp-gvfs loading more

robust.
(tramp-handle-insert-file-contents): `unwind-protect' must be
inside `with-parsed-tramp-file-name'.

2 files changed, 29 insertions, 17 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d451a9620b6..2d55c0bb457 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2009-08-04  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/tramp.el (top): Make check for tramp-gvfs loading more
+        robust.
+        (tramp-handle-insert-file-contents): `unwind-protect' must be
+        inside `with-parsed-tramp-file-name'.
+
+        * net/tramp-gvfs.el (top): Remove superfluous message when loading
+        fails.
+
 2009-08-03  Nick Roberts  <nickrob@snap.net.nz>
 
         * progmodes/gud.el (jdb): Set gud-jdb-classpath-string to current
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index df2f10ba5dd..4ccf2ab6e58 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -143,6 +143,9 @@
          ;; tramp-gvfs needs D-Bus messages.  Available since Emacs 23
          ;; on some system types.
          (when (and (featurep 'dbusbind)
+                    (condition-case nil
+                        (funcall 'dbus-get-unique-name :session)
+                      (error nil))
                     (tramp-compat-process-running-p "gvfs-fuse-daemon"))
            'tramp-gvfs)
 
@@ -4213,9 +4216,8 @@ coding system might not be determined.  This function repairs it."
   (barf-if-buffer-read-only)
   (setq filename (expand-file-name filename))
   (let (coding-system-used result local-copy remote-copy)
-    (unwind-protect
-        (with-parsed-tramp-file-name filename nil
-
+    (with-parsed-tramp-file-name filename nil
+      (unwind-protect
           (if (not (file-exists-p filename))
               ;; We don't raise a Tramp error, because it might be
               ;; suppressed, like in `find-file-noselect-1'.
@@ -4286,20 +4288,20 @@ coding system might not be determined.  This function repairs it."
               (tramp-message
                v 4 "Inserting local temp file `%s'...done" local-copy)
               (when (boundp 'last-coding-system-used)
-                (set 'last-coding-system-used coding-system-used)))))
+                (set 'last-coding-system-used coding-system-used))))
 
-      ;; Save exit.
-      (progn
-        (when visit
-          (setq buffer-file-name filename)
-          (setq buffer-read-only (not (file-writable-p filename)))
-          (set-visited-file-modtime)
-          (set-buffer-modified-p nil))
-        (when (stringp local-copy)
-          (delete-file local-copy))
-        (when (stringp remote-copy)
-          (delete-file
-           (tramp-make-tramp-file-name method user host remote-copy)))))
+        ;; Save exit.
+        (progn
+          (when visit
+            (setq buffer-file-name filename)
+            (setq buffer-read-only (not (file-writable-p filename)))
+            (set-visited-file-modtime)
+            (set-buffer-modified-p nil))
+          (when (stringp local-copy)
+            (delete-file local-copy))
+          (when (stringp remote-copy)
+            (delete-file
+             (tramp-make-tramp-file-name method user host remote-copy))))))
 
     ;; Result.
     (list (expand-file-name filename)
@@ -4919,7 +4921,7 @@ Falls back to normal file name handler if no Tramp file name handler exists."
             (cons jka (delete jka file-name-handler-alist))))))
 
 ;; During autoload, it shall be checked whether
-;; `partial-completion-mode' is active.  Therefore registering of
+;; `partial-completion-mode' is active.  Therefore, registering of
 ;; `tramp-completion-file-name-handler' will be delayed.
 ;;;###autoload(add-hook
 ;;;###autoload 'after-init-hook