2022 |
(interactive (list (dired-get-filename t) current-prefix-arg)) |
(interactive (list (dired-get-filename t) current-prefix-arg)) |
2023 |
(with-temp-buffer |
(with-temp-buffer |
2024 |
(if deref-symlinks |
(if deref-symlinks |
2025 |
(call-process "file" nil t t "-L" file) |
(call-process "file" nil t t "-L" "--" file) |
2026 |
(call-process "file" nil t t file)) |
(call-process "file" nil t t "--" file)) |
2027 |
(when (bolp) |
(when (bolp) |
2028 |
(backward-delete-char 1)) |
(backward-delete-char 1)) |
2029 |
(message (buffer-string)))) |
(message (buffer-string)))) |