diff options
| author | Michael Albinus | 2019-10-12 12:19:59 +0200 |
|---|---|---|
| committer | Michael Albinus | 2019-10-12 12:19:59 +0200 |
| commit | 9c30c3bee0cf1b4e3d20e6821b079a22c6a08de6 (patch) | |
| tree | 913192ef19043413ed8aeafd008ed0b1b5a471e4 | |
| parent | 55fdbec44316036b85d96a4d808a5f1f17276fc6 (diff) | |
| download | emacs-9c30c3bee0cf1b4e3d20e6821b079a22c6a08de6.tar.gz emacs-9c30c3bee0cf1b4e3d20e6821b079a22c6a08de6.zip | |
* lisp/net/tramp.el (tramp-handle-access-file): Use `file-truename'.
| -rw-r--r-- | lisp/net/tramp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index d0d8f276ca2..2a60aff383b 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -2970,7 +2970,7 @@ User is always nil." | |||
| 2970 | 2970 | ||
| 2971 | (defun tramp-handle-access-file (filename string) | 2971 | (defun tramp-handle-access-file (filename string) |
| 2972 | "Like `access-file' for Tramp files." | 2972 | "Like `access-file' for Tramp files." |
| 2973 | (unless (file-readable-p filename) | 2973 | (unless (file-readable-p (file-truename filename)) |
| 2974 | (tramp-error | 2974 | (tramp-error |
| 2975 | (tramp-dissect-file-name filename) tramp-file-missing | 2975 | (tramp-dissect-file-name filename) tramp-file-missing |
| 2976 | "%s: No such file or directory %s" string filename))) | 2976 | "%s: No such file or directory %s" string filename))) |