/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by dak, Sat Feb 15 15:41:33 2003 UTC revision 1.49 by kai, Sun Apr 13 12:46:10 2003 UTC
# Line 3356  system TYPE.") Line 3356  system TYPE.")
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
# Line 3370  system TYPE.") Line 3375  system TYPE.")
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)

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26