From b967bd19147a586462cbef9c921df3f1980f2f87 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 25 Aug 2009 08:47:39 +0000 Subject: [PATCH] * dired-aux.el (dired-show-file-type): Let-bind `process-file-side-effects' with nil. --- lisp/dired-aux.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 2e31e9cd90d..e56ac3e9fcf 100644 --- 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) -- 2.39.5