diff options
author | Miles Bader <miles@gnu.org> | 2000-11-16 06:52:13 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2000-11-16 06:52:13 +0000 |
commit | d9b81aaa604beb18b56e66b4e8f4855065ce3e51 (patch) | |
tree | c24ac630e69075d2d4f5b9ebab72492424ac5814 | |
parent | c2f6019fe2556faaec250b60b64fab6ff3756596 (diff) | |
download | emacs-d9b81aaa604beb18b56e66b4e8f4855065ce3e51.tar.gz |
(ange-ftp-file-modtime): Don't use `caddr'.
-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)) |