Mercurial > emacs

comparison lisp/net/ange-ftp.el @ 33539:ac44722a4f19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-file-modtime): Don't use `caddr'.
author Miles Bader <miles@gnu.org>
date Thu, 16 Nov 2000 06:52:13 +0000
parents 1de3bb3a4c95
children a3b587b05ab3
comparison
equal deleted inserted replaced
33538:3def5b3d0255 33539:ac44722a4f19
1 ;;; ange-ftp.el --- transparent FTP support for GNU Emacs 1 ;;; ange-ftp.el --- transparent FTP support for GNU Emacs
2 2
3 ;; Copyright (C) 1989,90,91,92,93,94,95,96,98 Free Software Foundation, Inc. 3 ;; Copyright (C) 1989,90,91,92,93,94,95,96,98, 00 Free Software Foundation, Inc.
4 4
5 ;; Author: Andy Norman (ange@hplb.hpl.hp.com) 5 ;; Author: Andy Norman (ange@hplb.hpl.hp.com)
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: comm 7 ;; Keywords: comm
8 8
3416 (ange-ftp-real-delete-file file)))) 3416 (ange-ftp-real-delete-file file))))
3417 3417
3418 (defun ange-ftp-file-modtime (file) 3418 (defun ange-ftp-file-modtime (file)
3419 (let* ((parsed (ange-ftp-ftp-name file)) 3419 (let* ((parsed (ange-ftp-ftp-name file))
3420 (res (ange-ftp-send-cmd (car parsed) (cadr parsed) 3420 (res (ange-ftp-send-cmd (car parsed) (cadr parsed)
3421 (list 'quote "mdtm" (caddr parsed))))) 3421 (list 'quote "mdtm" (cadr (cdr parsed))))))
3422 (if (= ?5 (aref (cdr res) 0)) '(0 0) 3422 (if (= ?5 (aref (cdr res) 0)) '(0 0)
3423 (encode-time ; MDTM returns "YYYYMMDDHHMMSS" GMT 3423 (encode-time ; MDTM returns "YYYYMMDDHHMMSS" GMT
3424 (string-to-number (substring (cdr res) 16 18)) 3424 (string-to-number (substring (cdr res) 16 18))
3425 (string-to-number (substring (cdr res) 14 16)) 3425 (string-to-number (substring (cdr res) 14 16))
3426 (string-to-number (substring (cdr res) 12 14)) 3426 (string-to-number (substring (cdr res) 12 14))