diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2009-07-05 08:32:26 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2009-07-05 08:32:26 +0000 |
| commit | d6ceb380aac43fcb982efd49988da47ef81cfea8 (patch) | |
| tree | f295ae2b1b99544b4e3dacd948c1a2ed74e3d1af | |
| parent | c760f19ee6ebba17cf8b14a071dc6b0dbac8d4a7 (diff) | |
| download | emacs-d6ceb380aac43fcb982efd49988da47ef81cfea8.tar.gz | |
* dired-aux.el (dired-show-file-type): Handle remote files.
| -rw-r--r-- | lisp/ChangeLog | 12 | ||||
| -rw-r--r-- | lisp/dired-aux.el | 4 |
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)))) |