Mercurial > emacs

comparison lisp/dired-aux.el @ 103724:bb1aff5ec05f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* dired-aux.el (dired-show-file-type): Handle remote files.
author Michael Albinus <michael.albinus@gmx.de>
date Sun, 05 Jul 2009 08:31:37 +0000
parents 3c2dc56032af
children c6b5e95a3a8d
comparison
equal deleted inserted replaced
103723:a18909b5a393 103724:bb1aff5ec05f
2427 If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is 2427 If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is
2428 true then the type of the file linked to by FILE is printed instead." 2428 true then the type of the file linked to by FILE is printed instead."
2429 (interactive (list (dired-get-filename t) current-prefix-arg)) 2429 (interactive (list (dired-get-filename t) current-prefix-arg))
2430 (with-temp-buffer 2430 (with-temp-buffer
2431 (if deref-symlinks 2431 (if deref-symlinks
2432 (call-process "file" nil t t "-L" "--" file) 2432 (process-file "file" nil t t "-L" "--" file)
2433 (call-process "file" nil t t "--" file)) 2433 (process-file "file" nil t t "--" file))
2434 (when (bolp) 2434 (when (bolp)
2435 (backward-delete-char 1)) 2435 (backward-delete-char 1))
2436 (message "%s" (buffer-string)))) 2436 (message "%s" (buffer-string))))
2437 2437
2438 (provide 'dired-aux) 2438 (provide 'dired-aux)