Mercurial > emacs
changeset 104593:c6b5e95a3a8d
* dired-aux.el (dired-show-file-type): Let-bind
`process-file-side-effects' with nil.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Tue, 25 Aug 2009 08:47:39 +0000 |
| parents | 2e9b68642e06 |
| children | 1c682f1cb8e6 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Tue Aug 25 08:45:41 2009 +0000 +++ b/lisp/dired-aux.el Tue Aug 25 08:47:39 2009 +0000 @@ -2427,13 +2427,14 @@ If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is 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 - (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)))) + (let (process-file-side-effects) + (with-temp-buffer + (if deref-symlinks + (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))))) (provide 'dired-aux)