* dired-aux.el (dired-show-file-type): Let-bind

`process-file-side-effects' with nil.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 2e31e9cd90d19e90a9b4392f9a631c7acba07f45..e56ac3e9fcf565d2d1cd78cb97c229ffe1ee185d 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2427,13 +2427,14 @@ with the command \\[tags-loop-continue]."
 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)