Mercurial > emacs
changeset 42251:d2e8e0db6666
(ange-ftp-file-modtime): Use save-match-data.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 21 Dec 2001 23:57:20 +0000 |
| parents | bfee4533db2c |
| children | 63b6d0453539 |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Fri Dec 21 23:57:08 2001 +0000 +++ b/lisp/net/ange-ftp.el Fri Dec 21 23:57:20 2001 +0000 @@ -3454,7 +3454,7 @@ ;; Bob@rattlesnake.com reports that is returns something different ;; for at least one FTP server. So, let's use the response only ;; if it matches the Internet draft. - (when (string-match "^213 [0-9]\\{14\\}$" line) + (when (save-match-data (string-match "^213 [0-9]\\{14\\}$" line)) (setq modtime (encode-time (string-to-number (substring line 16 18))