mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-30 11:09:23 +00:00
Code Issues Releases Activity

(ange-ftp-file-modtime): Don't use `caddr'.

Browse Source
This commit is contained in:
Miles Bader 2000-11-16 06:52:43 +00:00
parent 56600dfa15
commit 1389a414e0
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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

4
lisp/net/ange-ftp.el
View File

@ -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))