Mercurial > emacs

changeset 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 3def5b3d0255
children aa5626a2456f
files lisp/net/ange-ftp.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el	Thu Nov 16 06:36:21 2000 +0000
+++ b/lisp/net/ange-ftp.el	Thu Nov 16 06:52:13 2000 +0000
@@ -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 @@
 (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))