mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

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

Browse Source 
`process-file-side-effects' with nil.
This commit is contained in:
Michael Albinus 2009-08-25 08:47:39 +00:00
parent 2c4f2562bb
commit b967bd1914
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/dired-aux.el
View File

@ -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)