102 |
(cond |
(cond |
103 |
;; If argument is a symlink, 'file-directory-p` and 'file-exists-p` |
;; If argument is a symlink, 'file-directory-p` and 'file-exists-p` |
104 |
;; call the traversed file recursively. So we cannot disable the |
;; call the traversed file recursively. So we cannot disable the |
105 |
;;file-name-handler this case. |
;; file-name-handler this case. |
106 |
((memq operation '(file-directory-p file-exists-p)) |
((memq operation '(file-directory-p file-exists-p)) |
107 |
(apply 'ange-ftp-hook-function operation args)) |
(apply 'ange-ftp-hook-function operation args)) |
108 |
;; Normally, the handlers must be discarded |
;; Normally, the handlers must be discarded |