3356 |
(ange-ftp-real-insert-file-contents filename visit beg end replace)))) |
(ange-ftp-real-insert-file-contents filename visit beg end replace)))) |
3357 |
|
|
3358 |
(defun ange-ftp-expand-symlink (file dir) |
(defun ange-ftp-expand-symlink (file dir) |
3359 |
(if (file-name-absolute-p file) |
(let ((res (if (file-name-absolute-p file) |
3360 |
(ange-ftp-replace-name-component dir file) |
(ange-ftp-replace-name-component dir file) |
3361 |
(expand-file-name file dir))) |
(expand-file-name file dir)))) |
3362 |
|
(if (file-symlink-p res) |
3363 |
|
(ange-ftp-expand-symlink |
3364 |
|
(ange-ftp-get-file-entry res) |
3365 |
|
(file-name-directory (directory-file-name res))) |
3366 |
|
res))) |
3367 |
|
|
3368 |
(defun ange-ftp-file-symlink-p (file) |
(defun ange-ftp-file-symlink-p (file) |
3369 |
;; call ange-ftp-expand-file-name rather than the normal |
;; call ange-ftp-expand-file-name rather than the normal |
3375 |
(gethash |
(gethash |
3376 |
(ange-ftp-get-file-part file) |
(ange-ftp-get-file-part file) |
3377 |
(ange-ftp-get-files (file-name-directory file))))) |
(ange-ftp-get-files (file-name-directory file))))) |
3378 |
(if (stringp file-ent) |
(and (stringp file-ent) file-ent)) |
|
(if (file-name-absolute-p file-ent) |
|
|
(ange-ftp-replace-name-component |
|
|
(file-name-directory file) file-ent) |
|
|
file-ent))) |
|
3379 |
(ange-ftp-real-file-symlink-p file))) |
(ange-ftp-real-file-symlink-p file))) |
3380 |
|
|
3381 |
(defun ange-ftp-file-exists-p (name) |
(defun ange-ftp-file-exists-p (name) |