1362 |
(interactive) |
(interactive) |
1363 |
(let ((file-name (file-name-sans-versions (dired-get-filename) t)) |
(let ((file-name (file-name-sans-versions (dired-get-filename) t)) |
1364 |
;; bind it so that the command works on directories too, |
;; bind it so that the command works on directories too, |
1365 |
;; independent of of the user's setting |
;; independent of the user's setting |
1366 |
(find-file-run-dired t)) |
(find-file-run-dired t)) |
1367 |
(if (file-exists-p file-name) |
(if (file-exists-p file-name) |
1368 |
(find-file file-name) |
(find-file file-name) |