[Emacs-diffs] Changes to emacs/lisp/files.el

[Juanma Barranquero]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.770 emacs/lisp/files.el:1.771
*** emacs/lisp/files.el:1.770   Sat May 14 16:39:49 2005
--- emacs/lisp/files.el Mon May 16 11:33:46 2005
***************
*** 2988,2994 ****
  the index in the name where the version number begins."
    (if (and (string-match "[0-9]+~$" fn backup-extract-version-start)
           (= (match-beginning 0) backup-extract-version-start))
!       (string-to-int (substring fn backup-extract-version-start -1))
        0))
  
  ;; I believe there is no need to alter this behavior for VMS;
--- 2988,2994 ----
  the index in the name where the version number begins."
    (if (and (string-match "[0-9]+~$" fn backup-extract-version-start)
           (= (match-beginning 0) backup-extract-version-start))
!       (string-to-number (substring fn backup-extract-version-start -1))
        0))
  
  ;; I believe there is no need to alter this behavior for VMS;
***************
*** 4552,4558 ****
              (if (string-match "ls (.*utils) \\([0-9.]*\\)$" version-out)
                  (let* ((version (match-string 1 version-out))
                         (split (split-string version "[.]"))
!                        (numbers (mapcar 'string-to-int split))
                         (min '(5 2 1))
                         comparison)
                    (while (and (not comparison) (or numbers min))
--- 4552,4558 ----
              (if (string-match "ls (.*utils) \\([0-9.]*\\)$" version-out)
                  (let* ((version (match-string 1 version-out))
                         (split (split-string version "[.]"))
!                        (numbers (mapcar 'string-to-number split))
                         (min '(5 2 1))
                         comparison)
                    (while (and (not comparison) (or numbers min))