diff options
| author | Miles Bader <miles@gnu.org> | 2000-11-16 06:52:43 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2000-11-16 06:52:43 +0000 |
| commit | 1389a414e037c241c96bee50f3258c2b712981fe (patch) | |
| tree | 9d2089e627b3038061df65abcb695cc4440b5649 /lisp/net | |
| parent | 56600dfa15e5e6e2b1f9f82eb2ae93793941fadd (diff) | |
| download | emacs-1389a414e037c241c96bee50f3258c2b712981fe.tar.gz | |
(ange-ftp-file-modtime): Don't use `caddr'.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/ange-ftp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index a6b986ceba0..e307a7dbfd4 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -1,6 +1,6 @@ ;;; ange-ftp.el --- transparent FTP support for GNU Emacs -;; Copyright (C) 1989,90,91,92,93,94,95,96,98 Free Software Foundation, Inc. +;; Copyright (C) 1989,90,91,92,93,94,95,96,98, 00 Free Software Foundation, Inc. ;; Author: Andy Norman (ange@hplb.hpl.hp.com) ;; Maintainer: FSF @@ -3418,7 +3418,7 @@ system TYPE.") (defun ange-ftp-file-modtime (file) (let* ((parsed (ange-ftp-ftp-name file)) (res (ange-ftp-send-cmd (car parsed) (cadr parsed) - (list 'quote "mdtm" (caddr parsed))))) + (list 'quote "mdtm" (cadr (cdr parsed)))))) (if (= ?5 (aref (cdr res) 0)) '(0 0) (encode-time ; MDTM returns "YYYYMMDDHHMMSS" GMT (string-to-number (substring (cdr res) 16 18)) |