Lines Matching defs:symlink
526 ;; ange-ftp looks to chop trailing @'s off of symlink names when it is
528 ;; incorrectly get the name of a symlink on a non-ULTRIX host if its name
1308 (while (setq temp (ange-ftp-real-file-symlink-p file))
2325 ;; - if foo is a symlink, we may get a single line showing the symlink
2735 file-type symlink directory file)
2745 (setq symlink (substring file (match-end 0)
2749 (setq symlink "")))
2750 (setq symlink nil))
2758 (and (not symlink) ; x bits don't mean a thing for symlinks
2767 (if (or (and symlink (string-match "@\\'" file))
2772 (puthash file (or symlink directory) tbl)
2958 or a string for a symlink. If the file isn't in the hashtable,
3395 (defun ange-ftp-expand-symlink (file dir)
3399 (if (file-symlink-p res)
3400 (ange-ftp-expand-symlink
3405 (defun ange-ftp-file-symlink-p (file)
3408 ;; redefines both file-symlink-p and expand-file-name.
3418 ;; this file is not a symlink.
3422 (ange-ftp-real-file-symlink-p file)))
3431 (ange-ftp-expand-symlink file-ent
3449 (ange-ftp-expand-symlink file-ent
3492 (ange-ftp-expand-symlink dirp
3957 ;; If the file entry is not a directory (nor a symlink pointing to a directory)
3958 ;; returns whether the file (or file pointed to by the symlink) is ignored
3964 (let ((file (ange-ftp-expand-symlink val ange-ftp-this-dir)))
3996 (ange-ftp-expand-symlink ent
4364 (put 'file-symlink-p 'ange-ftp 'ange-ftp-file-symlink-p)
4437 (defun ange-ftp-real-file-symlink-p (&rest args)
4438 (ange-ftp-run-real-handler 'file-symlink-p args))
4492 ;; because some FTP servers react to "ls foo" by listing the symlink foo