Commit b967bd19 authored by Michael Albinus's avatar Michael Albinus
Browse files

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

`process-file-side-effects' with nil.
parent 2c4f2562
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment