3420 |
(defun tramp-find-foreign-file-name-handler (filename) |
(defun tramp-find-foreign-file-name-handler (filename) |
3421 |
"Return foreign file name handler if exists." |
"Return foreign file name handler if exists." |
3422 |
(when (tramp-tramp-file-p filename) |
(when (tramp-tramp-file-p filename) |
3423 |
(let (elt res) |
(let (elt |
3424 |
(dolist (elt tramp-foreign-file-name-handler-alist res) |
res |
3425 |
|
(handler-alist tramp-foreign-file-name-handler-alist)) |
3426 |
|
(while handler-alist |
3427 |
|
(setq elt (car handler-alist) |
3428 |
|
handler-alist (cdr handler-alist)) |
3429 |
(when (funcall (car elt) filename) |
(when (funcall (car elt) filename) |
3430 |
|
(setq handler-alist nil) |
3431 |
(setq res (cdr elt)))) |
(setq res (cdr elt)))) |
3432 |
res))) |
res))) |
3433 |
|
|