diff options
| -rw-r--r-- | lisp/net/tramp.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 99c93eaa573..cb40c71cfeb 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -3306,9 +3306,13 @@ User is always nil." | |||
| 3306 | (defun tramp-handle-file-regular-p (filename) | 3306 | (defun tramp-handle-file-regular-p (filename) |
| 3307 | "Like `file-regular-p' for Tramp files." | 3307 | "Like `file-regular-p' for Tramp files." |
| 3308 | (and (file-exists-p filename) | 3308 | (and (file-exists-p filename) |
| 3309 | (eq ?- | 3309 | ;; Sometimes, `file-attributes' does not return a proper value |
| 3310 | (aref (tramp-compat-file-attribute-modes (file-attributes filename)) | 3310 | ;; even if `file-exists-p' does. |
| 3311 | 0)))) | 3311 | (ignore-errors |
| 3312 | (eq ?- | ||
| 3313 | (aref | ||
| 3314 | (tramp-compat-file-attribute-modes (file-attributes filename)) | ||
| 3315 | 0))))) | ||
| 3312 | 3316 | ||
| 3313 | (defun tramp-handle-file-remote-p (filename &optional identification connected) | 3317 | (defun tramp-handle-file-remote-p (filename &optional identification connected) |
| 3314 | "Like `file-remote-p' for Tramp files." | 3318 | "Like `file-remote-p' for Tramp files." |