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 | |
| parent | 56600dfa15e5e6e2b1f9f82eb2ae93793941fadd (diff) | |
| download | emacs-1389a414e037c241c96bee50f3258c2b712981fe.tar.gz emacs-1389a414e037c241c96bee50f3258c2b712981fe.tar.bz2 emacs-1389a414e037c241c96bee50f3258c2b712981fe.zip | |
(ange-ftp-file-modtime): Don't use `caddr'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/net/ange-ftp.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d7d5faff1cd..2cdbe2e1de2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-11-16 Miles Bader <miles@lsi.nec.co.jp> + + * net/ange-ftp.el (ange-ftp-file-modtime): Don't use `caddr'. + 2000-11-16 Kenichi Handa <handa@etl.go.jp> * window.el (fit-window-to-buffer): Be sure to acquire at least 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)) |