# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1251190059 0
# Node ID c6b5e95a3a8dbfd680016c7756caadc9aaaad484
# Parent  2e9b68642e067c58d4b0eb34625a7c668bd87eb4
* dired-aux.el (dired-show-file-type): Let-bind
`process-file-side-effects' with nil.

diff -r 2e9b68642e06 -r c6b5e95a3a8d lisp/dired-aux.el
--- 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)