Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/net/tramp.el (tramp-handle-file-regular-p): Improve error handling.

Browse source
This commit is contained in:
Michael Albinus 2019-11-18 15:33:21 +01:00
parent 2e92f176a3
commit 3cc06d1abb
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/net/tramp.el
View file

@ -3306,9 +3306,13 @@ User is always nil."
(defun tramp-handle-file-regular-p (filename)
"Like `file-regular-p' for Tramp files."
(and (file-exists-p filename)
(eq ?-
(aref (tramp-compat-file-attribute-modes (file-attributes filename))
0))))
;; Sometimes, `file-attributes' does not return a proper value
;; even if `file-exists-p' does.
(ignore-errors
(eq ?-
(aref
(tramp-compat-file-attribute-modes (file-attributes filename))
0)))))
(defun tramp-handle-file-remote-p (filename &optional identification connected)
"Like `file-remote-p' for Tramp files."