diff options
| author | Michael Albinus | 2009-08-25 08:47:39 +0000 |
|---|---|---|
| committer | Michael Albinus | 2009-08-25 08:47:39 +0000 |
| commit | b967bd19147a586462cbef9c921df3f1980f2f87 (patch) | |
| tree | 049d7357f059cf49e6a6bee716a239038b35d39b | |
| parent | 2c4f2562bbb383a64b6f703cc280ea6a29ed0d23 (diff) | |
| download | emacs-b967bd19147a586462cbef9c921df3f1980f2f87.tar.gz emacs-b967bd19147a586462cbef9c921df3f1980f2f87.zip | |
* dired-aux.el (dired-show-file-type): Let-bind
`process-file-side-effects' with nil.
| -rw-r--r-- | lisp/dired-aux.el | 15 |
1 files 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]." | |||
| 2427 | If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is | 2427 | If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is |
| 2428 | true then the type of the file linked to by FILE is printed instead." | 2428 | true then the type of the file linked to by FILE is printed instead." |
| 2429 | (interactive (list (dired-get-filename t) current-prefix-arg)) | 2429 | (interactive (list (dired-get-filename t) current-prefix-arg)) |
| 2430 | (with-temp-buffer | 2430 | (let (process-file-side-effects) |
| 2431 | (if deref-symlinks | 2431 | (with-temp-buffer |
| 2432 | (process-file "file" nil t t "-L" "--" file) | 2432 | (if deref-symlinks |
| 2433 | (process-file "file" nil t t "--" file)) | 2433 | (process-file "file" nil t t "-L" "--" file) |
| 2434 | (when (bolp) | 2434 | (process-file "file" nil t t "--" file)) |
| 2435 | (backward-delete-char 1)) | 2435 | (when (bolp) |
| 2436 | (message "%s" (buffer-string)))) | 2436 | (backward-delete-char 1)) |
| 2437 | (message "%s" (buffer-string))))) | ||
| 2437 | 2438 | ||
| 2438 | (provide 'dired-aux) | 2439 | (provide 'dired-aux) |
| 2439 | 2440 | ||