Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.62 emacs/lisp/net/ange-ftp.el:1.63
*** emacs/lisp/net/ange-ftp.el:1.62 Wed Feb 9 15:50:37 2005
--- emacs/lisp/net/ange-ftp.el Mon May 16 11:17:14 2005
***************
*** 2109,2115 ****
(line (cdr status)))
(save-match-data
(if (string-match ange-ftp-hash-mark-msgs line)
! (let ((size (string-to-int (match-string 1 line))))
(setq ange-ftp-ascii-hash-mark-size size
ange-ftp-hash-mark-unit (ash size -4))
--- 2109,2115 ----
(line (cdr status)))
(save-match-data
(if (string-match ange-ftp-hash-mark-msgs line)
! (let ((size (string-to-number (match-string 1 line))))
(setq ange-ftp-ascii-hash-mark-size size
ange-ftp-hash-mark-unit (ash size -4))
***************
*** 5082,5088 ****
(and (string-match regexp name)
(setq version
(max version
! (string-to-int (match-string 1 name))))))
files)
(setq version (1+ version))
(puthash
--- 5082,5088 ----
(and (string-match regexp name)
(setq version
(max version
! (string-to-number (match-string 1
name))))))
files)
(setq version (1+ version))
(puthash
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
