Function: ange-ftp-file-newer-than-file-p

ange-ftp-file-newer-than-file-p is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-file-newer-than-file-p F1 F2)

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-file-newer-than-file-p (f1 f2)
  (let ((f1-parsed (ange-ftp-ftp-name f1))
        (f2-parsed (ange-ftp-ftp-name f2)))
    (if (or f1-parsed f2-parsed)
        (let ((f1-mt (file-attribute-modification-time (file-attributes f1)))
              (f2-mt (file-attribute-modification-time (file-attributes f2))))
          (cond ((null f1-mt) nil)
                ((null f2-mt) t)
		(t (time-less-p f2-mt f1-mt))))
      (ange-ftp-real-file-newer-than-file-p f1 f2))))