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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4cb1536..06ec006 100644 (file)
--- 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 ffb6f4e..2e31e9c 100644 (file)
--- 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))))