[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Juanma Barranquero]

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