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)