* dired-aux.el (dired-show-file-type): Handle remote files.

2 files changed, 13 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4cb1536bce3..06ec0060de1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-07-05  Michael Albinus  <michael.albinus@gmx.de>
+
+        * dired-aux.el (dired-show-file-type): Handle remote files.
+
 2009-03-22  Jari Aalto  <jari.aalto@cante.net>
 
         * desktop.el (desktop-globals-to-save): Add
@@ -146,11 +150,17 @@
         (tramp-default-file-modes) Remove execute permissions.
 
         * net/tramp-gvfs.el (tramp-gvfs-methods): Add "synce" method.
+        (top): Add a default for "synce" in `tramp-default-user-alist'.
+        Add completion function for "synce" method.
+        (tramp-hal-service, tramp-hal-path-manager)
+        (tramp-hal-interface-manager, tramp-hal-interface-device): New
+        defconst.
         (tramp-gvfs-connection-mounted-p): Handle empty user name for
         synce.
         (tramp-synce-list-devices, tramp-synce-parse-device-names): New
         defuns.
-        (top): Add completion function for "synce" method.
+
+        * net/trampver.el: Update release number.
 
 2009-06-30  Kenichi Handa  <handa@m17n.org>
 
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index ffb6f4e9cbf..2e31e9cd90d 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2429,8 +2429,8 @@ true then the type of the file linked to by FILE is printed instead."
   (interactive (list (dired-get-filename t) current-prefix-arg))
   (with-temp-buffer
     (if deref-symlinks
-        (call-process "file" nil t t "-L" "--" file)
-      (call-process "file" nil t t "--" file))
+        (process-file "file" nil t t "-L" "--" file)
+      (process-file "file" nil t t "--" file))
     (when (bolp)
       (backward-delete-char 1))
     (message "%s" (buffer-string))))